
Pour un programmeuf un peu ha- 
bitue au Basic, ce jeu du POKER- 
ALPHABET doit paraitre tres mal 
organise et absolument incom- 
prehensible. 

Pourtant. j'y ai travaille enorme- 
ment mais.comme tout amateur, 
c'etaituneheurepar-ci.unedemi- 
heure pas la et souvent a des se- 
maJnesd'intervaile Achaquefois. 
jedevais tenter de me souvenir de 
cequej'avaisfaitiafoispreceden- 
te De plus, mon Ms de sept ans. 
TRISTAN qui m"a fourni I'idee de 
base, revenail a la charge et me 
proposait de nouvelies possibili- 
ty alors que les anciennes 
n'etaient meme pas terminees. 

Bret, voici un programme typique. 
tait de bnc et de brae ; neanmoms 
un nouveau concours d'HEBDO- 
GlCIEL 

Le but de ce concours est triple. 
D'abord, vousdevez proposer une 
serie de petites routines pour ter- 



La deuxieme epreuve est plus 
theorique. Comme je n"ai jamais 
fait rj'organigramme de ce jeu, 
vous allez essayer d'abord d'en 
imaginerun. puisde I'ametioreret 
enfin d'en proposer un complete- 
rnenl different. Cette epreuve est 
faite pour vous donner des bon- 
neshabitudesdeprogrammation 
Pour moi. c*est probablement trop 
tard ! 

Enfin. la troisieme epreuve, e'est 
laseulequirend le gateau si appe- 
tissant : la presentation et la des- 
cription pour I'acheteur eventuel 
de ce programme. Les membres 
du jury sont tres sensibles a cet 
aspect des jeux. Rajouterdesgra- 
phismes, des cadres, completer 
par une petite epreuve comme la 
composition.lettreparlettre.d'un 
mot qui apparait ou d'u/i verbe ir- 
regutier qui manque dans une 
phrase Bref, soyez attractif et 
pedagogique. Apres tout ce jeu 
est fait pour apprendre I'alphabet 
si on est un tout jeune joueur ou 
apprendre le clavier si on ne le 
connaTt pas 

. Georges LECLERE 



Lejury choisiralemeilleurlogiciel 
pour chaque modele d'ordinateur 
et.parmicesmeilleurslogiciels.le 
gagnant toute categorie qui en 
plus de son contrat d'edition et de 
ses prix. aura le plaisir de passer 
en direct a la television : la gloire ! 

RECOMPENSES POUR LE GA- 
GNANT TOUTE CATEGORIE : 

- Un central d'edition de son logi- 

-Un APPLE Me 
-Un CANON X 07 
-Un COMMODORE 64 
-UnORICATMOS 

- Un Agenda electromque CASIO 
PF 3000 

- Un TEXAS T! 99/4A 

- Uneimprimanle EPSON 

- Un abonnement a vie a HEBDO- 
GICIEL 

-Une disquette HEBDOGICIEL 
APPLE N' J 1 

- 5 logiciels VIFI NATHAN 
-5!ogicielsROMOX 

RECOMPENSE POUR LES GA- 
GNANTS DANS CHAQUE CATE- 
GORIE D'ORDINATEUR : 

- Un contrat d' Edition deson logi- 
ciel 

- Un agenda eleclronique CASIO 
PF3000 

- Un abonnement d'un an a HEB- 
DOGICIEL 

et bien d'autres prix qui viendront 
s'ajouter au cours de semaines a 
venir Cldture des envois de pro- 
grammes le 2 mai (Voirreglement 
en page interieure) 



DEVENEZ PRO ! 



Vous etes de plus en plus nombreux a nous envoyer. chaque se- 
maine. des programmes de qualite. Chaque jour des dizames de 
logiciels nous arrivent, de plus en plus elabores. de plus en plus 
prochesdeceux qui sont commercialises HEBDOGICIEL recom- 
pense deja chaque mois et chaque trimestre plusieurs d'entre 
vous par les concours permanents et par les cadeaux offerts par 
lesfabricants et les distributees. Pour pouvoir vous (aire partici- 
perencoreplusalaviedel'Hebdoetalaperceederinformatique 
en France, nous organisons un nouveau concours en collabora- 
tion avec Georges LECLERE, journaliste de remission "TELE MI- 
CRO" d'Antenne 2. 

L'objectif de ce concours est simple ; a partirde I'idee de base de 
Georges LECLERE. chacun d'en t re vous. quelque soil son ordma- 
teur , doit creerun jeu leplus proche possible de i'idee ongmale et 
le rendre suffisamment performant et presentable, pour qu'il 
puisseetrevendu en France et dans les pays Francophones. Pen- 
dant que vous y etes, essayezdetrou verun nom ace programme. 
"POKER-ALPHABET", e'est pas terrible pour un logiciel educatif ' 

Chaque ordinateura sa chance et il y aura un gagnant parordina- 
teur. Les prix ? Comme d'habitude chacun des programmes rete- 
nus sera recompense par des materiels. il y aura meme un super 
gagnant (voir liste des prix ailleurs dans cenumero). Mais surtout. 
les programmes retenus seront edite par SHIFT EDITIONS sous 
forme de K7 ou de disquette et les auteurs. par contrat. touche- 
ront les royalties correspondants aux ventes de leur logiciel. De- 
venez professionnel de I'mformatique ! 

Gerard CECCALDI 



LES CONCOURS PERMANENTS : 

10 000 francs de prix au meilleur programme CHAQUE MOIS. 
1 voyage en Californie pour le meilleur logiciel CHAQUE TRI- 
MESTRE (Reglement en page interieure) 



DES PROGRAMMES POUR VOTRE ORDINATEUR : APPLE II ET HE 
ATARI . CANON X-07 . CASIO FX 702-P . COMMODORE 64 ET 
VIC 20 . HEWLETT PACKARD HP 41 . MULTITECH MP-F II . ORIC 1 . 
SHARP MZ, PC 1211, PC 1500 . SINCLAIR ZX 81 ET SPECTRUM. 
TANDY TRS 80 . TEXAS TI-99/4A . THOMSON T07 



HIPPOREBUS trouvez I expression qui se cache d 
(solution en page interieure). 



slaBO.de I'riippocampe Decompose en trois syllabes dans les trois premieres cases, le "tout" a evidemment un rapport avec I'mlormatique 




\^ IN t£rT 23 Mars 1984 J 



Allemagne 3,50 DM - Belgique 55 Frs - Canada 2,50 $ - Luxembourg 57 Frs - Suisse 3 Frs - 



EXD4 



iOfe/ 



H p41 



Les calculateurs prodiges ont toujours etonne les foules 
Certains sont capables de vous donner en quelques ins- 
tants, le nom du jour de n'importe quelle date. Un petit 
"True" est la base de ce phenomene et va vous permettre 
de savoir en quelquos secondes que le 14 Juillet 1789 etait 
un mardi ou bien que le 1" Janvier de I'An 2000 sera un 
dimanche ! 

Ce programme sous forme de jeu, va vous entrainer a rea- 
liser des prouesses en calcul mental. 

Laurent GERVAT 

\rotci comment Irouverle jour dune date quelconque soil lexdumoisy 
de I'annee zt. t represents les 2 demiers chiffres de I'annee Nous 
prendrons par exemple le 25 Decembre 1984 (ici x — 25. y - 12, z - 19 et 
t-84) 

A chaque mois y on fail conespondfe un chiffre y' suivant le tableau 
suivant : 

moisy 1 4 56 7 89 10 11 12 

CHIFFREr 5*1*14625035 1 3 

C'est le sen! effort de memoire a foumir, d'autant plus facile si Ton re- 
marque que pour passer d'un motsy au mois suivant ii suffit de rajouter 
2 si le mois y a 30 jours et 3 s'il en compte 31 (une semaine ayant 7 jours. 
11 revient au meme de prendre le chiffre y' ou le chiffre 7k + y' avec k E Z) 
A chaque annee zt on fait correspondre le nombre 
n-l + E(l,25t) + E(5.25z) 

- 1 + t + 5* + E(V4) + E (3/4) 
E (x) designant la parlie enliere de X 

Ce n'est pas difficile a caicuier mentalement. d'autant plus que la piu- 
part du temps, vous aurez a calculer des dates du 2CT siecle (z- 19). II 
vous suffit alors de savoir une bonne fois pour toute que 5X 19 + E(19/4) 
-^99cequiestegala1 modulo 7. La formuledevient done pour une date 
du 20* Steele : n - 2 + t + E (t/4) 

Pour notre exemple. on an — 2 + 84+E (84/4) — 107 ce qui est egal a 
2 modulo 7 (car 107 - (15 X 7) + 2) 
C'est fini le jour de la semaine est : j — x + y' + n 
Dans lexemple propose. J-25 + 3+2-30-4X7 + 2 
done le 25/12/1984 est le 2* jours de la semaine c'est a dire un mardi. 
Vous pouvez le verifier en uttlisant le sous-programme DATE : tapez 
XEQ-DATE" mtroduisez lejour(25). RIS. le mois (12). RIS.rannee(1984), 
la machine vous repond bien Mardi. 
Maintenant vous pouvez vous entrainer avec le jeu "EXD" 
Tapez XEQ-EXD" L'affichage est : SOUCHE ? il faut introduire un nom- 
bre qui servira de souche dans la generation des nombres aleatoires. 
Tapez RIS : la machine vous demande alors la duree maximale de re- 
flexion que vous vous accordez pour chaque date (PAUSE — ?} 
Rentrezce temps (en secondes) pour commencer une duree raisonna- 
bfe semble etre 120 s. 

Tapez RIS. la machine vous demande combien il y aura de dates a trou- 
ver dans la partie Rentrez ce nombre (Par exemple 5) puis RIS. 
La machine affiche alors (si vous avez suivi ces exemples). 26/6/1927 
— ? Vous avez 2 minutes pour trouver le jour (repondre : Dimanche— 0) 
Quand vous pensez I'avoir trouve tapez le chiffre correspondant et la 
machine vous repond aussitot sans que vous ayiezaappuyersurRIS. Si 
vous avez trouve. Bravo, vous n'en aurez pas d'autres. 
Quand ia partie sera finie, la machine vous donnera votre % de reussite, 
votre temps moyen de reflexion et votre note finale. 
A vous de jouer. 
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CROAAAC 



Version simplifiee pour ZX 81 dun celebre jeu darcade, 
CROAAAC vous entraine de routes en rivieres a la recher- 
che d'un gite paisible pour de petites grenouilles bien 
sympathiques. Ne les laissez pas se faire ecraser ou se no- 
yer, vous ne le vous pardonnerez pas ! 
Ne tapez pas par a-coups sur les touches de direction, !a 
lente routine du Basic vous serait fatale, mais laissez votre 
doigt contre la louche pendant toute la duree du mouve- 
ment. 
8onne chance 

Marc PARADINAS 



GOTO 91CB 

rem MBjnRineLES^H 

LFT X.21 




Z*8A 



16 LET D=S 

17 L.ET C=6 
IB LET D-7 

19 let e=a 

se let sai* 

21 LET T=25 

22 LET U-S 




73 PRINT RT 
30 PRINT RT 



IF L«2 THE* 



t2 IF L*2 
3 IF L=l 



PRINT FTT HI, 
PRINT RT 21, 
PRINT RT 21, 



as PRINT RT X , V, "B" 
S6 LET TP3=T P5«B.5 

as pem HBB>EPLRCEHErn 
b9 let d$=inkey» 
90 if d*= 



95 IF 0*="6 

190 IF D«="7 

no if D*-'-e 

120 IF D* = "S 

130 IF D» = "6 

13S IF D»="8 

140 IF DJ="7 

145 IF 0»= "7 

15B IF 0* = *'B 



IEN LET Y=Y-1 

THEN LET X=XH 

THEN LET X*X-1 

THEN LET Y-Y*l 

THEN PRINT FIT 



TMEN 

THEN 



PRINT RT 



■ THEN PRINT RT 



_ , TP5 ; 

1SG IF X>21 THEN LET Xa21 

170 IF X=3 THEN GOTO 7000 

175 IF F>1 THEN GOTO 200 

180 IF X=21 OR X = 1A THEN G 
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PRINT RT 14, O. 
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830 


IF 


X=g OR X*8 THEN GOTO 20" 


3085 


IF 5:31-7 THEN LET S 
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X=5 OR X=4 THEN GOTO 30^ 
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GOTO 85 


r 034 




re: 
PR J 
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NT RT l^arXROBflRC" 
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00S 


PAUSE 50 
















3 13 


PRINT RT 1,0; - 












;E1S 


FOR R = 4 TO 21 



1016 LET X-21 

1017 IF GR=4 THEN GOTO 9000 
101B LET K=K*INT B5 „__ 

SQ19 PRINT AT 21.19. "SHBB " 



1=4 TO 21 

io«b PHiMT RT 1,0; " 

laSB NEXT I 

1070 GOSUB BCI0(3 

1100 GOTO sa 

1999 REM BPJt-l'.'TS DES TRONCSl 

=000 PRINT RT E,U, "BBBBSB" 

3005 PRINT RT E,U " 



=316 PRINT RT R,0; 



3327 
= 330 

ease 



GOTO i 
LET X=21 

GOTO 50 

IF GR=0 RNO K « : 1000 THEN PRI 

RUURE5 GREHOUILUES.r- ' 
- OE BIEfl "- 



IF GR 

"IL " 



R ENCC 



RNO K 



RUL'RISES HR 
10 THEI 
BIEN 



S PRO 



X=E RNO Y> 



ND Y<U(6 
R X=E RND 



2020 IF 



RND Y(U-2 OR X=E 
THEN GOTO 5000 

" f THEN PRINT RT 



2025 IF Ui31-7 THEN LET I 

2030 LET U=U»2 

2031 PRINT RT X,Y;"H'" 
3340 PRINT RT D,U, "BBEEE 
2045 PRINT RT D,U+5:" 

2050 IF X=D RND Y>=0 RND 
THEN LET Y»Y-2 

2051 IF XaD RND Y <*J OR X 
► W7 THEN GOTO 5000 



5100 
Z UNE 
5105 



2OO0_THEN 

BRRV 

R-. " 

POUR REUOUER . PRE5SE; 



M C""EST PRS MRL.RLLE 
IF K > -zoon THEN PRINT 
ELICITRTIONS DE ' ~ 
PRINT - 

-QUCHE 



IP 



THEN 
=0 THEN 



= U*7 
RND Y 
INT RT D,U; " 
31-5 



O 10 
■MOTS DC" 'JOITURESiBK 
• - OR Y>18 OR 



206S IF 

2070 LET vav-H 

2071 PRINT RT X,V;"B" 
3073 IF X>=B THEN GOTO 8S 
2080 PRINT RT C,U;"BBBB" 
20B5 PRINT RT C,U-2;" 

2090 IF XiC RND Y>=U-2 RNO Y<=U* 
4 THEN LET Y=Y+2 

2091 IF X-C RND Y(U-2 OR X-C RNO 
Y>U+4 THEN GOTO 5000 

3000 IF Ub31-4 THEN PRINT RT C,U 

3003 IF U=31-4 THEN LET U = 1 

3010 LET UrUta 

3311 PRINT RT X,Y;"B" 

3015 IF X>=7 THEN GOTO 65 

3020 PRINT RT B . T ; "eEBEB" 

103E PRIN— " 

J030 IF X 

THEN LET 



IF 

THEN GOTO 

GOTO 3000 

LET G-1Q 

LET H-16 

LET Hh13 

LET Nail 

LET Jc« 

LET 0=27 

IF XOIA THEN GO T 

PRINT RT r- ...i . M) 

IF K>-0 THEN PRIN 



720B 
7220 
300 
7225 



IF J>Y*2 



>=+ RND Y<-T*7> 
I RND 



= B RND Y <T 

^Tt7 THEN GOSUB 5000 

3040 IF T=l THEN PRINT RT B,T 

3045 IF T=l THEN LET T=2S 

JO50 LET T=T-2 

3051 PRINT RT K,V; "i" 

31355 IF Xt«6 THEN GOTO 85 

3060 PRINT RT R.S; ••EBBEBB" 

~ - PRINT RT n,3-2;"' 



7300 
THEN 

7305 

7400 

7403 

.4 08 

7420 

500 

7425 



76B0 
INT RT 0,0-3 
X-G-l THEN GOTO 7 
THEN PRINT RT G,J» 
THEN LET U-0 
OR YwU-3 OR Y»J-2 



!INT 
PRINT 
LET " 



U070 IF X=R RNO 
S THEN LET Y=Y*2 
■J071 IF X=R RND Y(5- 

Y>S*S THEN GOTO 500 
3060 IF 5:31-7 THEN 



=S-2 RND Yl 



* 1 NT RT R , 5 



h , o *oT^ 

H OR X-H-l THEN GOTO 7 

IF 0<Y-2 THEN PRINT RT H,0* 

IF 0<Y-2 THEN LET 0-37 

GOTO B3 

IF YmO*3 OR YsO»4 OR Y-OtO 

GOTO 3000 

GOTO 7423 

PRINT RT H..l,'fJJJ' 

LET F = l 

PRINT RT 



.-608 LET 



= 14 THEN PRINT RT M , «J - 



-1 THEN GOTO 



-623 IF J.Ytl 



H«N PRINT 
LET U- 



7S3BJ IF J.YiJ THEN 

~6se> goto 7ee>B 

"70B IF Y=,J-4 OP Y»J-3 OR Y»J-» 

"HEN goto 3*ee 

7703 GOTO 7625 

7Se« PRINT RT N.O. ■■ 

7P05 PRINT RT N,Oi3. 

'BBS LET OiO-S 

~aae if x»n or x-n-i then ooto 



3 . ■■ 



"BjB if o<y-. 

7BS0 GOTO ©5 

'988 IF YtO(3 OR • 

THEN GOTO 5000 

7903 GOTQ 762 5 

7999 REM HH ' " 



TM€N PRINT RT N.O* 
THEN LET 0>27 

OR Y»0*S 



~?2e RETURN 

iaaa let KrK.iee 

^010 FOR 1x0 TO 30 
3020 PRI NT ~ 



_^^l_r .33. 

= 330 NEX\ 

^O40 FOR 1 = 3 TO 21 

JQS0 PRINT RT I.B; - 

9060 NEXT I 

9070 GOSUB SOflB 

9350 GOTO 55 

3099 REM ■ 

9 100 GOSUB 

91D3 FOR I»l IU 

" - PR INT RT . 



PTi", AT 



. ir. . TTror&ac 



JU5 PRINT RT 



. RT 



=120 NEXT I 

9130 PRINT RT 1 , 13, " - " 

9140 PRINT 

3 150 PRINT "UOTRE PETITE GRENOU 1 
i LE 1B> UEUTREUOINDRE L'"RUTRE C 
OTE DE LR", "RIVIERE . 



W178 PRINT -RTTENTION LES UOITUB 
E5 CPM> SONTRU3SI HEURTRIERES 3U 
R LE COTC" , -SUPCRIEUR 

9188 PRINT 

3190 PRINT "IL LUI TRUDRR ENSUIT 

E TRRUER3CR" . 'LR RIL-ICRE SUR DEI 

TRONC3 D , "RRBRCS __ 



FLOTRNTS 



5BBB1 

9210 PRINT "ELLE DEURR RLORS 3E 
LOGER " , "EXRCTENENT DRN3 LES N 

ICME5 ■ , "PREUUES R CET EFftT MB 

9220 PRINT "UN CONSE1L N""RJU5TC 
2 PRS UOTRE" , "POSITION RU DERNIC 
" MOMENT" 



30 



KEY«t 



TO 92 



9235 CL3 

9240 PRINT -UOU3 RUE2 3 GRENOUIL 

LES R FRIRC" , "TRAVERSER ." 

•)2SO PRINT 

9268 PRINT "LE TEMPS EST LXMTTE 

PRR UN '■ , "DEFILEMENT DC : I I | | I ' 

RU DELR UOTRE PETITE CRENOUII I t 

MOURRA O '"EPUISEMCNT (SNIFFJ" 

9378 PRINT 

92QB PRINT 'PLUS UOUJ, ETES RAPID 

E,","PLUS LE BONUS EST IMPORTANT 

-■ "UN TABLEAU COMPLET UOUS RAPPO 

RTE 100 PTS SUPPLEHENTAIRCS" 

9290 PRINT 

93O0 PRINT "BONNE CHANCE , ET CROP 



RAC. 

■ : ;>t> 
20 



PRINT 

IF XHKKY«< 



I A* t 1' 



m m mm ion'J 



?»330 CLS 

9340 GOTO 

9399 REI " 

'.mil DIH 

9430 LET ... 

9430 LET R* 12) = 

9440 LET fit. (3) . 

■3430 LET A« (4) « 

9460 LET ill <5> „ 

9470 LET A* 161 ■'■ 

->480 LET A*t71 

S490 FOR F«l TO 50 S 

9300 FOR lei TO 7 

O510 PRINT RT 1*3, Fi 

9520 NEXT I 

'1530 NEXT F 

'3600 FOR 1-1 TO 22 

96 1« PRINT AT 13,1;" 

T620 PRINT AT 14,1," 

9530 PRINT AT 13,1.' 

9640 PRINT AT 16,1.' 

9650 PRINT RT 14,1." 



AIDIMPRIME 



Ces deux programmes permettent de gerer facilement 
les imprimantes "APPLE DOT MATRIX PRINTER" et "EP- 
SON FX-RX, et d'utiliser facilement les options offertes : 
set etranger, marges, format de pages, epatsseur, taille et 
type de caracteres... 

Les instructions necessaires sont affichees au fur et a me- 
sure. 

Les deux programmes sont tres differents Tun de I'autre 
aussi bien dans leurs conception que leurs modes d'utili- 
sation. Le premier - pour APPLE - permet de sauver les 
formats d'edition, de les afficher. de les modifier. Le se- 
cond plus court permet un choix tres rapide des parame- 
tres desires. 

Des adaptations pour d'autres imprimantes, ou le choix 
des valeurs part defaut correspondent a des applications 
particulieres peuvent tres facilement etre realises a partir 
de ces deux programmes qui devraient permettre une uti- 
lisation plus complete des capacites des imprimantes. 
utilisation souvent difficile mais toujours fastidieuse... 



Andre AIRY 



APPLE" 



Cette semame, programme pour nmprimante "ESPSON FX-RX" 



REMARQUES:Oans les \\Qnes2AKa 2530du listing, quandlecaracte- 
re "u" apparait. remplacer par ! pour APPLE ll+el par I pour APPLE II" 




N"i QOSUB 480 

- "AIDlnPRIHF-"! ROSUB «BOi 

i GOSUB 470 

VTAB St FOR T - 1 TU 72: OOBUB 

<I9'H NUT : VTAP i;: GOSUB 4 

70 

POKE 34, 5i POKE IB, 33 J t a f 

32,2: POM " I, U 
20 HOME 

JO 0U8 - "SLOT DE l." IMPRIMANTE ] 
i UMifi ■...■.:- I 



no 



Vrtl. iDEtl 
140 PRINT "ALLUMER L' IMPRIMANTE" 

ISO <<•* BLi PRINT CHBi t27)"«") 

I PR* 01 HfAli 1 
IAO 0U» - -F-f-OPORTIONNEL l"iDII» - 
-NON' i BOflUB 900i PR» BLi PRII 
CHTta (271 tl(R» (1121 CHR» < 
DE« - '(nil- Mil f « ■•! MTflS | 

: n Dee ■ 'mim' mi n :■-■. 

170 OU» - "hit II OU IK./. ! -|0E» - 

"Pinfr'i OOiuB -'i'iipi - toe* - 
,| | ,, . 

180 ou» - "ecftiiu"! COnMnMi 

■■mi "I '. OOSUB SO0iP3 - 



<or_i ■ 



mil 



0U« ■ 'I .■■ ,.■ 'I i I 

i > 'NOW I ' "'■■II' " '• - 

■ i . 
i I (■■ M i M ■< I (271 



230 0U« - "exPOSANTS OU INDICES i 
-IDE* - -NON-i BOSUP SOOiSU - 
IDE* - "OUI-H IF NOT SU TMFN 
PRlt SLl PRINT CHR« '2/11 
II PRB Oi HTAB I i OUTO 2SO 



240 0U« - "EIPOSONrs i ":DE* - 
I"l GOSUB 500i PR* SUi PR 

CHft* 



Oil 



ON-1 



I 



230 0U« • ■SOULIDNFS : 

N"i GOSUB T.OOi PR* SLi PRINT 
CHfi* 1271 ■'-" CMRt 10E« » "0 

UI" II! PR» Ol HTflB I 
2b0 OE* - "36"! IF GU THEN DE* « 



270 



HOME 

PRINT -ESPACE ENTRE LES LION 

lOU* - ~X/2I6 INCH i"i (iOSUB 



aooi 



i 51. i PRIN 



■ 27 
PR* 



' CMR* ( VAl. 10E«il 

01 "TAB 1 

290 DU* - "CARACIERES IIALI0UE8 : 
"IDE* - "NOM-i GOSUB SOOl PR* 
BLi PRINT CMR* (27) CMR* (3 

2 « (DC* - "NON'MHi PR* Ol KTAI 



500 DE* I 



IF SU THEN OE* i 



PRINT ' 



■ i-ii 



-OaCOKTINU 



320 OU* - "LIONEB PAR PAt.l i'i 

300i PR* SLl PRINT CMR* 127 
l"C" CHR* I VAL IDEIllll PR* 
Ol lllAB I 

■I 1 1 , 

)40 Off - ■4»|0U« - "LI0NG9 POUR 

baiit m. i mi i aotua ■■ ■■: i'i 

SLl PRINT CMR* (271'N I i" I 
( VAl. (DEtHI I PR* Ol HTAB I 

■ rjin : ■ ini « - 

"4"i OOfiHH SOOl PR* SLl PRINI 

i. mi (271 i.i<"» I 108 ■ 

val (M*>)n hi ■': HTAB i 

■•■■■ i'i VAl inr*i . MtiMi 

I ' in' 'i AH '■■■' i ml A LA MAR 

di HU iir. ■■ 
WO ii ( : "ii n ii* ■ ■■■',■ ■ i. i ■, 

IMI N|lt .in 

"'■■ II Mil PI AND nor i ■ AND NO 

i- i,» H in < 
100 II run i I AN8 I '■ rHfll DEI 

■40"i it i :■ mi N I-" » »• 

P) AND MOT fB AND I 



l DE* i 



i '■ 



I OU* - -MARBF. OROITE i " i i GOSUB 
SOOl PR* BLi PRINI CHR* 127 
1-0" CHR* ( VAl IDIIDIi P«* 
Ol MIAIi 1 

■ HOME I PRINT "O-USA I -P I- 

> OU* - "CARACTERES DU PAV9 N. 
1 "iDE* - "1 "i BDBUB SOOl ii" 
BLi PRINT CHTta I271"H* CWM 
( VAl (til i mi! m.» Oi iiiab l 

I TIKI I HOMI 1 I Nil 

' HTAB 2l FOR I - 1 711 "Oi PRINI 
I MR* fl'.i 1 ; HI I I | 1. 1 7(11 H 

' KTAI ".'l ■ ( I EN IAS1 ' 'i Mi; 
n»i i f-i njRN 

1 MTAB ll PRINI CHR* (2r>:-> I i MfAt 
•Ol PRINT CMR* (232)1. M 

i IP PEF) ( "/I • i J| TU N 

MONf. 

If INI I'Utlt II : lil,,| 1 | f Mfll 
Rll*ll I Will lf( I %■ II II II 

■"■ THEN HI • ii i • 

■ 



in ■ 



SOLUTION DE ^Q)^ 
LHIPPOREBUS: 



i i i , n!.- : | ,i 

■■• !■■: 

SO PRINI CH 

in III ■ i 

... I ND 

■ .'. g 

65, 7b 



TREMPLINS 



Ce programme ne necessite aucune extension, mais la 
memoire est pratiquement pleine, d'ou le nombre limite 
de remarques et la presentation sommaire des regies du 
jeu inseree dans le programme. 

Christophe REULLER 



Mode d'emploi : 

TREMPLINS est un jeu d'adresse chronometre qui consiste a crever 

vingl ballons suspendus et ceci a l'aide de deux acrobates qui rebon- 

dissent sur un tremphn, dispose au sol. qu'il faut deplacer (touches B e! 

Ml pour intercepter les acrobates qui redescendent 

La partie est perdue si I'acrobate manque le tremplin ou retombe sur 

son partenaire 

- Sil atterrit en bout de tremplin, son partenaire saute dans !a direction 
Initiate (vers la droite si c'etait la direction du 1 e ' acrobate). 

- s'il atterrit au centre du tremplin. il rebondit. mais dans la direction op- 
posee d'oii la possibility de dinger et controler le saut des acrobates. 
Par contre la longueur du saut est aleatoire A chaque manche gagnee, 
le niveau de ditficulte crolt d'un degre (ballons de plus en plus bas. Ce- 
pendant au bout de la troisieme manche le niveau stagne. mais les bo- 
nus accordesa chaque manche sonttoujoursde plus en plus eleves.Le 
nombre de manches est symbolise par des acrobates situes en haul a 
droite de 1'ecran. Le but du jeu est de battre le record affiche. 



e - Al 

>J\C 



4 pc*E36s; , 8. u rjOiUB^eia 

3 REM INITIALISATION 

6 PCKE36e79,8 PRINTTr 

7 BS-$I5£ B-8154 M»dI33 P-S173 X«613tl- Y-813S; 
10 P0KE32-28 P0KE36.*;tJ 

28 fW18a F0RI«ATQft*311 POKE! ,PEEk.CI*256B8J NEXT 
38 FOftL-eriMi'-REWIF PuKE**L,F NEXT 
48 WTH24, 24, 189,98,24,36,36- 18<£ 
50 0rtrft255, 255. 126- 68, 24, 3b, 36, 126, 66. 66, 66-235, 129, 129, 129, 129 

68 aHTH255,129-195,231.235,235.233-253.24,ie2,6b-153.15j,o6.1«2,24 

?8 0HTrt255.235, 8. 8.8.8,8.8 

180 P0KE36869.235 

118 F0RG-7782TQ7/23 FQ*.EG,3:NEXT 

128 F0Rfj-763eT08854STEP22 PCKEG,3N£xr 

123 PORO"?781T088i , 53ltf-^2>'OKEG.3-NEXT 

126 FfJRMV»7699T0?69?-WSTEP-l PQKEMV.H P0KEMV*3B728, I :NEXT ' ' 

12? DS»7?9e*CNV*88> 

130 FORC-1TO20 

135 H-INT(RNDa.*18JJ*fjS 

140 IFPEEK<H>O32THEN00T0135 

141 IFPEEKi:H*l)0320ftP££XCM-lK>320RP£EK<Ht22K5320RPEEK(:M-22Kyj2rMEHrjOTU13S 
143 a.-<INT(RHDi.l>«7J»lJ 

145 POKEH.4-PDKEM+30720,L.L NEXT 

130 DX— 23 L-I 

153 FORO-150TO180:POKES1,O-NEXT 

153 REJ1 DEFLftCEHENTS 

168 0-PEEKU97J NB-MS+t 

170 1FD-3STHEHBB-BB-1 R-fl-I B-B-l -P-P-l •V-V-lPOKEB'-l ,32 PDKEP+1,32:P0KEY»1,32 

1S8 IFD-36THENBB»8B+l-nf1*l B«S+i ■ f--i--l --v.; kU'EBB-l , .i2 P0?£P-:.32 PGKEV-1,32 

135 IFBB<8142TMENBE«BB+1 :f1-M+l -B-B+l P«P*1 ■Y~¥+l 

186 IFB>8163THENBB-BB-1 fl-M-1 B-B-l -P-P-l V-V-l 





190 P0KEBB.5 POKE8.5 PUHEM.I POKEP.2 POKEV.B 

•tsi.e 

^\tf X-X+W FQKE^.0 PWEX-DX.Ji 

215 IPX-Be76CJKX"9037fMtHFur E A.j^ A-A+44 POKEX.0 BX— DX 

£i<6 lFX(D3rHEi*&rjSiJB40.j 

225 IFPEEKlX+BOMTHENT'Tal PPIUI-'»rrflB12»- W 'I ut/SuB**W 

^jo ip,-.= .aniirnfcnuuiiji- 1 w 

235 IF^-VFHEH GOTO780 

248 IFPEEK(»22/"1THE!IL— L U'.'-b/. Fur.ESl . 128'£-L GOTO160 

243 lH-EEi'.'X*22t«5TH£lflJrt— £i;-. POKESl/lM*bH.*l 

^46 IFfEEK<X>23>*1THEHX-X+2 V-V-2 GOTQ160 

247 IFPEEK'.»^l> = ltn£MX=X-2 Y-V*2 0010168 

250 GOIO?08 

380 REM LONGUEUR SftUt 

480 E-IHTtfttlUU>»4J*l 

402 IFPEEK(X+U-3THEHL — L POKES1,280*T 

484 X-X-22*L-Ptm.EX,8 POKEX'22-L-32 P0KES1.8 

483 FORV-8T0E 

486 IFPEEK<X*L;«3IMENL--L POKES1, 288*7 

487 X"X*L 
418 POKEX.0 
415 POKEX-L. 32 

422 HEXT -POKES! -0 

423 IFPEEKtX+DOTHENL— L POKES1,200»7 

424 X«X*22*L-PWEX,8 P0KEX-22-L, 32 P0KES1 , 8 

425 DX—DX 
430 RETURN 

50W REM FIN DE hmhcHE 

688 PRINT"iOIOB3"TftBC7>-BRHV0 II" 

601 F0RG-1T018 FuRu-12al0148*CG«18/STEFG P0KES1 .0 FQRK-1TO20 MEX T NEXT HEXT - POKE 

SI. 8 

685 5C-3C*a[-T<(4808-NB^/18J*C10e*VW;; PQKE36669> 248 Pu»,E36879.25 

618 PRINT' 1 ."* VuUS RVfcZ GfiGHE AVEC Sd ",SC," POINTS" 

612 IFSORETHENRE-SC PRINT 1 '* RECORD BHTIUI! 1 

615 PRINT-KILE RECORD EST DE "RE 

620 F0R0-87O7888 NEXT 

625 NV"NV*1 VN-VN+1 T-8 NB"8 

627 1FNV>2TH£MNV=2 

638 RESTORE GOT03 

639 REM PBRT1E PERDUE 

788 S2=36&75 FORO-I96TO130STEP-1 

781 FORrjMTQt280-UJ HEXTG POKES2.O;NEXT0 

762 P0XES2,8 

728 NB=8T-8 

725 PRIHT'^M VOUS HVE2 PERDU MVEC JOB 

738 F0RG-IT018 

748 F0R0=12«T0'. 140*tG»I8J> POKESI.ONEXTO 

750 NEXTG 

760 POKES1.0 

770 G0T0I888 

799 REM 8HLL0N TQUCHE 

800 POKEX,0:FORJ-1TO21 
810 POKES1.130*J*E*TNEXT 
815 IFTJ19TMENGOTO600 
828 RETURN 
839 REM PRESENTRTION 

388 P0KE36879.25-PRINT ,, ^»«»»«»«l»»»<»««»*i 
318 PRINT"S«W«*«««»»»«4MtM«»M«M- 
315 Sl=36876 
328 FORO=1T018 

338 FGRG*123TO<148+(G»10J) POKES 1 .0 NEXTO 
940 NEXTG 
345 POKESI,0 

950 PRINT'WiDEPLPlCEZ fiVEC SB* ET 81S" 
368 PRINT"»»CREVE2 ^V BHLLON5 EN 
363 HV-0 

365 PRINT"*J»j riiVEHUX DE JEU" 
385 PRINT'lUkflPPUYEZ SUR UNE TOUCHES" 
986 OETR* IFfl*>""THEN386 

338 RETURN 

339 REM FIN DE PflRTlE 

1000 PRlNT"«MW«a VOULE2-V0US REJOUER ?»' 
1810 PRINT-jmakll Jt^POVEZ 6UR 'U'S- 
1020 GETFl$ IFft*<>"O , 'TH£N1020 
1025 NV-0 SC-0-VN-0 
1030 RESTORE G0T05 



■.SC.~ P-OINTS- 



UllnUM DE TEMPS" 



EMPLOI DU TEMPS sPECTR^ 

^■*^ ■ =750. INPLT 



Lyceens, plus de trous de memoire (volontaires ou invo- 
lontaires), quant a vos horaires de cours, avec ce pro- 
gramme de gestion de votre emploi du temps. Valable 
aussi pour les non-lyceens, bien entendu ! 

Antoine LEMAITRE 
Mode d'emploi : 

Ce programme permet de remplir un emploi du temps, de le sauvegar- 
der sur une cassette. 

Loption 1 du menu permet de creer I'emploi du temps. Ouand i'utilisa- 
teur commet une erreur. il peut se corriger en utilisant les touches de 
deplacement du curseur (sans oublier d'appuyer sur ENTER). 
'5' provoque un deplacement du curseur a gauche 
'8' provoque un deplacement du curseur a droite 
'6' provoque un deplacement du curseur en bas 
'7' provoque un deplacement du curseur en haul. 
Si I'utilisateursesert deiacommande'6'et que le curseur est a la der- 
niere heure du jour donne. le curseur passe a la premiere heure du jour 
suivant, sauf s'il est a la derniere heure du vendredi. 
Si I'utilisateur se sert de la commande '7' et que le curseur est a la pre- 
miere heure d'un jour donne, le curseur passe a la derniere heure du 
jour precedent, sauf s'il est a la premiere heure du lundi. 
-1J Creation, 
-a ( 5auve«»i-8« sur cassette. 



leaps . 
Copie d 



Dans cette version du programme, le curseur ne clignote pas, mais ilest 
possible de le rendre clignotant. en modifiant la ligne 345 en rempla- 
cant les instructions INVERSE par des instructions FLASH. 
L'option 2 du menu permet de sauvegarder un emploi du temps 
Loption 3 provoque le chargement d'un emploi du temps en memoire a 
partir de la cassette et I'affiche. 

Loption 4 permet derecopierun emploi du temps sur I'imprimante SIN- 
CLAIR avec un titre. 

Loption 5 permet d'afficher un emploi du temps a I'ecran pour pouvoir 
le consulted La routine d'affichage est souvent appelee : eile est aussi 
utilisee pour !a recopie sur I'imprimante SINCLAIR et pour afticher un 
emploi du temps apres qu'on I'ai chargee a partir d'une cassette. 
L'option 6 provoque I'arret du programme. 

Pour creer I'emploi du temps, I'utilisateur n'est pas oblige de rentrer les 
matieres en entier ; il suffit de rentrer les deux premieres lettres, la pre- 
miere etant forcement une majuscule (saut dans le cas d'une heure vi- 
de : "ST, le programme cherche alors dans la lisle des DATA une matiere 
donl les deux premieres lettres sont les memesquecelles ren trees par 
I'utilisateur. et s'il la trouve.il remplacelecontenu do la variable cS ren- 
tre par I'utilisateur, parceluide la variable aS due dans la lisle des DATA), 
sinon le conlenu de cS reste le meme. 



3se xr len t . 

353 RESTORE 

J&1& TOR n = l TO 22 

370 RCRD a C 

33a ir a* i i 



h-age d'un eap lol 





8 ": 








PF, /Kt 


Sport 


Fran. 


Mist. 


Fran . 


ctng L . 


Sport 


Pran . 


ECO . 


Eco . 


M*U,S 


Geo . 


Ha ths 


S.na t 


Geo. 


T..n*l 


nn« i- . 


Ftnad 


Ceo . 


Ma ths 


ss/ss 


//,ss 


rssss 


S//S/ 


,//s, 


,,ss, 


s/sss 


ssss, 


/,s,s 


SSSSS 


ECO . 


Maths 


/ / / f / 


Etude 


Itat . 


Fran . 


Maths 


sssss 


Phsii. 


Etude 


HSfti. 


Pti. lid 


""' 


ita'.. 


Rn^l . 


R l tad 


Ita L . 


'"" 


'"" 


""* 



en 


droi te . 






oa PRINT 


PRINT ■• 


js n 'u t 


i U3tz pas 


ces 


COf»»-3 


ides j t 






ra autoa 


a tiquta 


»nt a l* ha 






>te apr 


5S chaque 

8? LET > 








»-"OPPL 


jez sur 






;9pr.n.» 














,"Ital ." 


, "Russe 


'■ ."Etude" , 


'Eco . " , 


r, oeo 


list ."> 












, "Chia. " 








"E.M.T", 












120 CI..'. ; 


PRINT 


"Pour #n 


irer l* 


no* des ■ 




, V t> U 6 p O 





-a* 



C* THEN LET 



390 NEXT i 

400 LET b 

4 10 LET n 

4 11 LET l«iti 

420 NEXT y 

42B NEXT x 

430 GO TO CJ00B 

lane rem »••«•*»»•* 

1010 REM *> Dessin 

1320 REM »ntt»n»t 

1030 CL6 : PRI^^T RT 



PRINT RT 



,0, INV'EJVSE 



30 PPINT : f»0»* n»t TO 23 REO 

hi PRINT at, ■ NEXT n 

40 PRINT PRINT ■ PRINT INK 

PLR3M_l^"fiTTCNTI0N : " ; 

" N 'oubtlli pes las 



S0 PRINf 
1*0 INPUT <••> \% 



i ti a 1. 1 set ions 



25 CLS : PRINT TOB O, " 

30 PRINT TRO 3,"» Cap I 

■ PS *" 

40 PRINT TRP S; "»*•••• 



240 PIM HUSO, 5 
243 DIM bj(3) 
250 LET li»"3 



270 LET 

2B0 DIM 

290 DIM 

SOS GO S 

CS00 REM 

318 REM 



'lapossi bit. 



it C1B) 
16 O00B 



JT'0 



m* t. i e res * 



>rogr 
> lol 



jours de 



seaai ne 

PRINT 



330 GO SUB 
333 LET L-: 

340 TOR v: 

341 FOR y -i 
345 PRINT f 

I i INPUT "I 

OT y , « ; IN« 
343 ir Ct»" 



TO 26 STEP 6 

TO 20 STEP 2 
T v,x; INUER5C 1,»«( 
at 1 ere 7 " ; c * : PRINT 
'ERSE 0, ■• ( L ) 
3" OR c«»"6" OR c*-" 



11)40 FOR n»2 TO 253 STEP 49 
T r>,0: DRRU , 175 ■ NEXT n 
1045 PLOT l.Oi DRRU 0,175 
104ft PLOT a, d DRRU 0.17E 
1050 FOR n=0 TO 167 STEP 16 
LOT 2,n: DRRU 314,0 NEXT n 
li)60 FOR n = 163 TO 167: PLOT 

DRRU 244, « : NEXT n 
10S3 PLOT 246,0: DRPU 9,175 
1066 PLOT 249,0: ORRU 0.175 
1070 RETURN 

DUD REM •* 
-•0 10 REM »> 
5020 ReM » 

203 REM »*••*••••»*»••*** 
2040 GO TO 2000+ (URL c**100 
2300 REM **•••»••*»•»•»•»»» 

2310 REM t: Curseur a gaucl, 
^520 REM »•»#»»»#*»•»»•»•;» 

aaao if x > 1 then let x-x-6: 

l - I -10 : OO TO 348 
P360 INPUT CX ») ; •»• 
SB70 OO Tf ~ 

SSbS Skm 

2610 REM »> uur»«ur *ri 

^620 REM ••»••••»♦••»» 

2630 IF U<20 TMEN LET 

L at tl ' GO TO 3*5 

2640 IF x<26 TMEN LET 
=X+6 LET l-l+l: GO TO 

£•030 INPUT <Z f) , 1» 

2560 GO TO 343 

2/00 REM . i i ...<...<■ ■ 

i-710 REM •> Curseur en 

2720 REM ••#••»••♦•**» 

?73a IF U>2 THEN LET <j 
l-l-l: GO TO 34B 



ar 



2740 










INPUT (z >> ; <\t 

GO TO 34S 




2'JflO 




P310 


REM »> Cursaur a droite a 










1-1+10: GO TO 345 


2O40 


INPUT !**] ; q« 
GO TO 348 


;■■><:) so 






3U10 




90BS 














3RUE (t*l OflTR a* () 










4010 


REM •) Chargenent d'un * 






4820 






CLS INPUT "Titre de i'e»P 




4040 










GO SUB 7000 






















zi&a 


INPUT "Classe ? ".g* 


Biig 






IF e < 1 THEN GO TO 9000 


















1 PRI 








51O0 




51QO 








7010 


REM • > flffi chage * 






7025 






LET l-l 








FOR u-S TO 20 STEP 2 












7090 


NEXT x 


7 100 


INPUT Cw «) ; q« 


7110 





















.5: P 


9040 






















































9080 


PRINT 


- -S) 
































B0O0 


PRINT 


"-3> 






























"-4J 






9103 






»U 


r iapr i aartte . " 




9110 


PRINT 


■■-8) 


Rf r l chage d'un « 














911S 












9120 
9123 


PRINT 


" -61 


rtr 


ret du program 












* 


9130 

a 

114 


IF INf 


EY»- 


■i" 


THEN GO TO 3» 


• 






















9150 

00 

'J1B0 

00 

9165 


IF INKEY«- 


•3- 


THEN GO TO 40 




IF INh 


EV»« 


'*" 


TMEN OO TO OO 




































INT RT 10, fl; FLASH 












■ 




sieo 


GO TO 


9000 





GRAPHIQUES ET HISTOGRAMMES 



Votre TRS 80 s'avere etre un bon statisticien en herbe 
avec ce programme de gestion et representation de don- 
nees. 

M. VINCENT 

Mode d'emploi ; 

A la question "graphique circulaires ou histogrammes" repondre "C" 
pour circulaire et "H" pour histogramme. 

Circulaires : Inlroduisez votre suite de pourcenlages, lorsque le lotal 
fait 100 V le programme passe automaliquement au dessin du cercle. 
VouS pouvezaussi arreter I'entree des donnees par la valeur 0% ; I'ordi- 
nateur arfecte le pourcentage restant a la portion de cercle restanle. 
Pendant I'affichage des secteurs la lettre (A.B.C...) correspondant au 
pourcentage apparait a I'interieur du secteur si le pourcentage est su- 
perieur 3 5%. Puis, la representation graphique terminee. pressez la 
touche "ENTER" pour continuer 

Histogrammes.Introduisezvosvaleurs.apres la 25 3 le programme pas- 
se a la representation graphique Si vous n'avez pas 25 vaieurs, vous 
pouvez arreter la suite des INPUT par "F™ pour le trace, le programme 
caicule I'echelle la plus appropnee et affiche a gauche 3 vaieurs repe- 
res. Puis pressez "ENTER" pour ia suite du programme. 



) !CHR»i 131)1 

3150 PBIN73SZ;*!E.CMO». i:n 
■ iCH9«i 1761 :CHQ»'l40) !CHR»i 
I1E0 PRINT3B9E-;a. r.-^t 1311 
>76.5TRI»G«<3. 176) 




J170 PRINT39eB*2B.STaiNG»(S. 15 
3175 IF VHI'IM T>CN RUN 158 
31B8 FOR P-G3 TO !B7iSET< P. 2T> 
5939 '««--.»-«■•«»*«-«»««»« 



;■ -» ■...."• : :--• 
1341 iCMMl 139) l 
ICHM 131 iCHM 
: - - 1 I - 1 " ■ 



UmCkmi :76him;',- 



■:--:■■:•: 



NCXTtRETURN 



4020 N*N*a«I> 

i?:s: z> -- :■:-: ■■ • -.- 

4B4B DV=SININ>*22 

4030 X2«6S*DX:LX<I>-X2 

406B v;«2J-0VtLV(I)"V2 

4B7B GOSUB 453B - TRftCF, LE SEGMENT 

4B8B cosub saee • aft lettres 

&B9B NEXT! 

4108 RETURN 



4510 X1-6JIY1-23 

4S2B IF X2<X1 THE* 

(.530 DX-X2-X1 

454B DY-Y2-Y1 

455B DX«t>X/5H:DY-DY/5B 

45EB FOR K-l TO 49 STEP 1 

4S7B X1=X1»0X:Y1"Y1+0Y 

4580 SET<Xt.Vl) 

4581 ' 



1-X2:X2-Z!Z-V1!' 



5 CLEftft 500JDEFDBL ft.L.X.Y 




IB DIM fll4&).V 


M)iLX<U>iLV(401 




12 CLS 






13 INPUT- GRflPHIOUES <C) IRCULOI RES OU (H> I5T0GRW1MES" :«• 




16 IF ft*--- OR 


f *»{>~C- AND A*0*H* ) THEN 12 ELSE IF R«-"H" 


THEN 200 


5B CLS: PRINT - 


GROPMIOUES C I RCULB 


IRES 


E0 PRINT - 






IKT 






iee - 






tie cosub ieee 


• I NP DONNEES 




120 gosub 2eee 


' CALC ANGLES 




130 COSUB 3000 


■ CERCLE 




140 COSUB 40B0 


■ SEGMENTS 





5319 
S02B 
5030 
5040 
SBSB 



•OFF LETTRES 

LX(0)-lB7:LY(B>-23 

IF LX(I)-0 THEN LX(I»-1B7 

IF LY<I)-0 THEN l_Y(I)-23 

HX-< t_X(t-l)-H.X<I> 1/2UF fl(I))3. t* THEN MX-63-HX*63 

«Y-( LV<I-1)*LYU> )/2HF 0(I))3.14 THEN MY-23-MY*23 



Mm 



142 GOSUB 5B00 ' «FF LETTSES 

149 -\ [NKE t%: :■*■ ■ ■ 

1M P«INT39a2. -/ENTER/ .=>> " T : FOR 1-1 TO 801 NEXT: IF INKEY« O CWR*U3) THEN PRINTS 

942." * it FOR 1-1 TO 4BiNEXT:G0T0 15B ELSE RUN 



5B60 NY-( MY-23 J 

5870 ' 

5B80 QO-INTtNX/21 

5B9B IF 



; THEN I 



I 5 T G fl ( 



210 COSUB 6000 

215 CLS 

220 GOSUB 63BB 



INP DONNEES 



BIB PRINT-VOLEUR " CM R* ' E-5- 1) ~ EN f- 

820 IF fl-0 THEN I-I + liftf D-188-SIH 

B3B IF SI-SM00 THEN PRINT"VOY0NS. 

B31 SI-5I*0 

040 1=1*1 

850 IF SI-100 THEN ACI)-ftiVI 

BE-0 Rf lJ-«:v'.r.=fi:GOT0 1810 

2001 ■ CftLCUL DES ANCLES EN RQDIQN 

20 IB FOR J-l TO I 



■ft! RETURN 



I ft(J)-ftfJ)' 



413 



/to 



t?& 



80 



30BB ■ CERCLE 

38IB CL5 

3B11 SET'S3.23) 

3020 PRINT324.STRIKG*'4. 17E-) sSTRINGKS. 140) :STRING»'4. 176) ! 

3830 PRINT364*ie. CH«*'160) :CHR»I 17E> I CHR«< 14B) !CHR*( 140) ;CHRt< 151);CHR*i lllmPI 

INTaS4*39.CHR»(138>!CHR«'131) :CHR*tl31 ):CHR«i 140) ;CHR»':iE4) ;CHfl*<176) I 

3040 PRINTS 122- IS. CHR»I 176) :CHR»< 140) ; CHR»' 131 ) iCHR»i 129) : : PRINT312S*45- CHR»< 13: 

) ;CHP*'I37>:CHP«'176> 7CHR«'144)I 

3B5B PRINT3I92-13.CHH*' 152) : CHR*< 131 ) ! ! PRINT3192-4E. CHRlf 131 ) :CHR»< 140) iCHRK 14. 

3860 PRINT3256*ll-CHR«' 16E> :CHR» f 135) 1 :PRINT3256-50. CHfi»l 13B) lCHR»'. 1S4) I 

3070 PRINTa32B*10.CHR«fl52):CHR«i'123): : PRINTa^^B'SZ. CHR« (.169)1 

3080 PRINT3384.9.CHR»U6G) :CHR»f 129): : PRINT33B4*53. CHR»< 163) 5 

3890 PRINT3448*9.CHR*( 170) ; : PR I NT3448*S3. CHR»( 170) i 

'180 PRINTa512-3.CHRi< 1 70) ; t PRINT351 2*53. CHR«< 170) 1 

31 IB PRINT3576.10.CHR»ri(,9) i : PRINTa578-53. CHR*f 149) I 

3128 PRINT3640*18.CHR*<13B):CHR«(164) i : PRINT3640*51 . CHR»( 160) :CHR»< 1 

3130 PRINT37B4*12.CHP*(137) !CHR* ' 144) : : PRINT3704-5B. CHR«< 152) lCHR«n 

3140 PRINT3768-13.CHRH 130) :CHR»' I37>-.CHR»< 176) : : PRINT3768-47. CHR»< 1 




51BI IF V<I>-8 THEN RETURN 

S1B3 00-64-<l-l>!IF 00)658 THEN 00-00-768*55 
S1B5 PRINT3Q0.CHR«(64*I>" " 1 1 PRINTUSINO"tt». ■•" : VI 
5118 RETURN 

6008 - ' ■■■■■■■■■ ■ ——— — ■■■ — 

6018 ' INPUT DONNEES 

6828 CLS!0»"-~iPRINT. - HISTOGRftWPlES" 
PRINT. --«--.««—-««--•-—-- 
6838 PRINT" ENTREI LES VftLEURS (o»* oiu« ae 25 

6848 ' 

EB58 PRINT-DONNEE -CMR«<&S*I>" - -liINPUTfll 
6SG0 IF H»-"" THEN 6850 ELSE IF fi«--F" THEN RETUR 
6B78 fl(I>-VOLiR«) 
6088 IF 0(I))MX THEN MX-A(I) 
6090 1-1*1 

S1B0 IF 1-25 THEN RETURN 
6110 GOTO 6050 

eiaa -—.—.——————-——- 

6310 * TRUCE 

6328 ' 

6330 PRINT391B.STRIN0X49. 176)1 

6340 FOR r-8 TO 47iSET(23.ZHNEXTZ 

6330 FDR P-B TO 24 

6360 POKE 15360*968*14»P»2.63*P 

637B NEXTP 

638B -COLC ECHCLLE 

6338 EC-MX/4B 

64B8 FOR P-B TO I 

&4B5 IF ft(P)-0 THEN 644B 

6418 FOR Z-43 TO 43-ft<P)/EC STEP -1 

6420 SET(2B*P-«. Z)iSET129*P*4. Z) 

6430 NEXTZ 

6440 NEXTP 

6450 ' 

6460 PRINr3B96,- 0.00"! 

E470 E-(43-22)«£C:PRINT344B.USIN0-tt»»»«. »»"IEi 

648B E-(43-2>*EC!PRINT30. USING" *«••«. »»"iEl 

6490 ' 

6493 0«-INHEY»lO«- M - 

6500 PRINT39E8.-'/ENTER/-I :FOR P-I TO 80INEXTHF 1 

INT396B." "liFOR P-l TO 4B1NEXT1G0T0 6500 

6310 ' 



PRINtlPRINT 



I RUN (LSI PH 



STAT 



CANON X -o7 



Histogramme, Camembert, Courbe : pius de probleme 
avec votre CANON X 07 et ce programme tres simple 
quant a son utilisation : il suffit de rentrer ies donnees de 
chaque mois et de choisir son graphique. 




Frederic BERTHET 



1 f.L.--;D!M S0I12.4 


:FONT»M30I-"32,48,Z 


s, 


13 


FOB I 


1 TO 


Z5Z. 2*9, 48, «,0" 










noii. 


2 MIA-)ir.vJ.r',- 






19 


NOT 




•Mal*,*Juin',*Ju) 








F0P1- 


TO I 


3 D*I« -S.pl— O-t 








DOt], 


>-2Z» 


■:• " -'.-.' 












* FIB I-l IO 12 








SO-0 




3 BEAD ,■■'■ I'l'i-iw.* 


■■•iCKR»il30)l"»!'i: 




20 


FOB I 


1 TO 


UTDOII.I) 








;ri—.', 


DOM, 










Htxr 




7 CLS:^»lNT'ANNBe 






23 


FOB I 












0011, 




MINIMIHt'lJ 






2fl 






urti»:n«-LEFr»it 








Pl-3. 


•IL192 












\ TO 


10 FONT»I1301-'3S 


49.2*0, 7^2, 2*e,*B. M 


0" 


JB 


D0I1, 





OC4TEO,0:PB1NI -2-;L0C4TE 0.1IPB 




420 PRINT--:PRINT-|r>v»r» -1-. • 1 gu 1 1 


OCATE 0.2IPRIHT 'O' 






OBl-22T00STEP-4:P86Tia,li:He>!T 






INE(6,0l-(6,r2i:LtNE<7,22)-(77,Z: 






PINT- JFMAHJJASOND"! 






rcHl'zTHe^oosCr'oo 00 




460 PMTI77, I4>:lInei?b, 171 -(7*. ISM 


P CM-3 THEN GOfiUBfiOO 










S70 LINE 'SO, 131- I0O, 191 


BINT" ON HECOHneNCEI-ICMR* 


130 


bOO FOB 1-1ST01 .-JLINE 181, J > - 168, 11 :h 
A?0 FOBl'l TO )2:AL-AL>DOM,dl 


NPUTB»:lF B«--OUI- THEN <S0 ELSE END 




-o: REM TBACE DE L'MlflTOOP 




*L)»llHJNtXl I , 

: - IO LOCATE 14, 3! PRINT "I'lCHOll IJ'JII 


OR)-? TO 74 GTEf>4 




720 IF 1NKEY*-"- THEN 720 

730 rpim-- 


ORK-OT04 




740 PBINT-):-|D0M,3) I'fl'IDO 12,31 1- 



: la coubbe 



ERRATA FRISSONS SUR 
CANON X07 PARU DANS 
HEBDOGICIELN"22 

Description du materiel utilise : 

Le programme est ecrit pout 

CANON X 07 version QK octet3 el 

ne necessite pas I'uWisation 

dune imprimante. 

Attention ! Les trois formes do 

caracteres suivants doivent etre 

creees avant I'execution du 

programme : 

FONT $ (224) - -&H70. &H60. 

&H7C, &H70. &H70. &HAO, &MAO' 

FONT $ (225) - -AH30, &H30. 

AH 1 8. &HFC, *H 1 C. &H 1 0. &H30' 

FONT S (130) - -&H30. &H36. 

AH 1 0. S.H7C. 41 190, &H28. &H44, 

AH84- 

Lors de la proflrammation des li- 

gnes 1640 ot 1790, on pout afli- 

cher directement les caracteres 

- Ligno 1640 : LOCATE J, 1 : PRINT 
■ & ";etc... 

Locaractero h estobtonuontn- 
panlPR'PrTJpiiistJ 

- Ligne 1790: PRINT"; RP. ~M "'■ 
PRINT TAB (141 " ,* "; RP 
LoCBractoro ,•; ostoblonuonla 
panlEBffilP"is!B 
LocaraclftfO 7* estobtonuenta- 
pant^RPHJpuisH 



HEBDOGICIEL 27, rue du Gal-FOY 75008 PARIS 

VOUS POUVEZ VOUS ABONNER AU TARIF PREFERENTIEL DE 340 FRANCS POUR 52 NUMEROS AU LIEU DE 
52 x 8,00 = 416 FRANCS. ABONNEMENT POUR 6 MOIS : 180 FRANCS. 



NOM : 

PRENOM : 
ADRESSE: 
REGLEMENT JOINT: 



D CHEQUE 



a ccp 



MATERIEL UTILISE : 
CONSOLE: 
PERIPHERIQUES : 



SYNTHETISEUR 



Le petit PC 1500 se defend bien : les compositeurs en her- 
be vont se regaler avec se programmesimple de sy nthese 
mustcale ! 

Brice BOUFFARD 

Modedemploi : 

Oe programme occupe environ 4300 octets l! nest done realisable 
qu'avec un module de memoire. if utilise aussi leCE 150 Prevoyezdonc 

■ on des stylos decouleur 
II sen a composer des morceaux de musique sur ordmateur. Apres 
avoir rentre le programme laites <D£F>A LOP vous demandera 
ci dbord la melodie : 
touches du clavier, ainsr Q - do 

W-re 

E -mi 

R -fa 

T -sol 

Y -la 

U-si 

I - do aigu 

O - re aigu 



F -si aigu 

g — do tres aig 

Si vous entre2 les notes seulement avec les touches I'ordinateur consi- 
dered ces notes comme des noires de un temps. Pour changer la du- 
reede cette note, il faut placer unchiffre AVANT la lettre representant la 
note, amsi : 
C - fa croche — 7j temps 

1 — la noire pomtee — 1 temps et demi 

2 - la blanche - 2 temps 

3 — la blanche pointee — 3 temps 

4 - la ronde — 4 temps 

Lorsqu'on veut representer un silence dans la melodie, il faut taper 
<SPACE> Cela represente un temps de silence ou soupir. 
Puis, I'ordinateur vous demandera la mesure de votre ceuvre. (e'est un 
nombre entre 1 et 9 que I'ordinateur placera sur la portee au debut de 
votre morceau) Puis il interpreter la musique et vous demandera si 
vous nedesirez nencorriger.il vous taudrarepondre"OUI" pour pouvoir 
faire une correction, sinon "NON" Puis il vous demandera le titre qu'il 
cadrera automatiquement (titre de 18 lettres maximum). Si vous ne 
donnez pas de titre, il imprimera directement "Symphoniette". 
A bon compositeur salul ! 




PC 1500 



KQRUN =Lf -5: 
■~&: ' 33: CURSOR 
9:PRjNi "30NJO 
ufi :EH0 

2:R£n 3ft ICE 
BOUFFflRO 

3: REP PR5H 0£ 
SYNTHET1SEUR 

■■:~1- OQUR 

PC- 1508 



I0:'-<VCLEflR 
li:BEEP ON 

]2:rjin Bscajtae, n 

*C0)*80 
J5:U0ir 40 
20:PRINT "RENTREZ 
UOTRE HELODIE 

: ": INPUT S»(8) 
21: BEEP 1, 10, 10 
25: INPUT "MESURE 



DE LP I1EL0DJE 

US: "JS 
26:SEEP J. 10, 10 
27: IF S>90R S<1 

GOTO 25 
48: GOSUB 500 
58; INPUT "UOULEZ 

UOUS CORRJGER 

?";C* 
51: BEEP 1, 10, 10 



56: IF C»-"0ur 

INPUT flELOOIE 
CORRIGEE: ;8* 

(0;:Goro 40 

57: TEXT 
53; COLOR 1 
60:CSIZE 2 
62: INPUT "TirRE 
E LO nELOOIE: " 

;n*(0j;aEEP i, 



, 10 



63: IF n*(8)="" 
LPRINT TAB 3; " 
Symphon! et t e " 

64:CLS : IF LEU n* 
(0)>=19PRINI " 
NE PEUT ETRE C 
PDRE":G0f0 62 

65: IF nilBJO"" 
LET N = INT (18- 
LEN r\*<0>)'2: 
LPRINT TPB N;n 
• (0) 

67: LF ] 

68: GRAPH 

70: GOSUB 700 

72:CS!ZE 2 

73: GOSUB 300 

?5:Q=900 

77:G=LEN B*<0) 

78:GLCURS0R <0, -2 
8):S0RGN 

80:FQR I =i TO G 

B]:0*-niD» (B*(0) 
,1,1) 

82:n=n*i 

83: IF fl*="2"LET p. 
=808:n-ri-]: 
GOTO 260 

98: |F M=9LET rt=j: 
GLCUR50R (0,-1 
38):SQRGN : 
GOSUB 700 

91: J=n*25 

92: IF B*="1"LET 
=):M=n-i:GOT0 
260 

96: IF A*="0"LEr P 
= ]:rt=n-KGOT0 
268 

97: IF A»= B 3"LET 

=-i:ft=88e:n=n-i 

:G0T0 260 
98: IF fl*="4"LET R 

=i:A=868:n=M-l 
:G0T0 268 

ft*s" "GOSUB 



301 



tttttt1 



103: REM 
104: REM 
105:REM ***** 

IDENTIFICATION 
OES NOTES 
***** 
186:R£M 

107: REH ******* 
110: IF p.*="Q"LET X 

=-55:FJ="0O":Q 



■ B 
|2Bi '' 01 U-LE1 H 

; U-RE : 

■ 
l/JO; IF fi»»"£-LEt .' 

G05UB 
140: IF fj* = R' LE ' ■ 
=-40if « = "Fn": 

Gosua o 

158: IF S#e-T"LET X 
=-35;F*='S0L": 

GOSUB ft 
160: IF OS="Y"L£T X 

=-38:p»=' LQ' : 

GOSUB A 
170: IF Pt-="U"LET X 

=-25:M»="SI":K 

=j:G0SUB A 
1B0: IF A*=' I"LET X 

=-20:F$="DO":K 

=1: GOSUB ft 
190: IF Qt="0"LET X 

t-]5:Fj="RE":K 

=i: GOSUB ft 
280: IF fi*="P"LET X 

»-10sF*="fl]":K 

=): GOSUB A 
210: IF A*="A"L£T X 

=-5:F*="F0":Ks 

l: GOSUB ft 
228: IF A»="S"L£t X 

=8:F*= i, S0L":K= 

1 : GOSUB ft 
230: IF AS="D"LET X 

=5:F*="Lft":K=] 

:Q=];G0SUB A 
240: IF P*="F"LET X 



"SI" 



258: IF ft*. 



15:FS="D0":K= 
l;W=I:Q=l: 
G05UB A 

260: NEXT I 

280: COLOR 

28KLINE t212,0)-C 
212, -40):LINE 
(215, -48)-(215 
, 8) 

285:GLCURS0R (8, -8 
8) 

286: COLOR J 

288:T£XT :CSIZE I: 
LF 1:D=JNT ( 
TIME ^I80):E= 
INT <D/)08):D= 
CD^108-E)*108 

289;LPR]NT ' 

FAIT LE"; 
0; " DU";E;"E n 
OIS" 

290:UfilT 

29I:LPR1NT B«(8J 

292: END 

300: TEXT :LF 1: 

LPRJNT TfiB 2;5 
;: GRAPH : 
GLCURSOR <0, 40 
):S0RGN : 
RETURN 

301: LINE U,-J8>-r. 
J*9, -20;-U*5, 
-30J-CJ*]0, -35 
J-U + 4, -32J 

382:L1NE (J--4, -32) 
-<J+2, -35)-<J* 



7. -40>-tJ,-30> 

:■'..■ 

a 

• -., .■■■ 
■ ■, ..' 

90411 INE (J*4, -29) 

-(J*B, -20) 
385i«ETURN 
580:Z-1608:' : DR 1«J 
N 3»(0):ft 

*-MID» tB*<8), 

I, ! > 
504: IF A»="3"lET I 

^6888: GOfO 650 
505: IF M=-2»LEI I 

=3200: GOTO 650 
586: IF 0»=- J "LET Z 

=2080: GOTO 558 
537: IF ft*="0"LEr Z 

=800: GOTO 650 
588: IF fl*="4"LET Z 

=8000: GOTO 658 
509:R£M ***** 

INTERPRETATION 
OE LA MELODIE 



512: IF A*="E"BEEP 



*2 
525:2=1608 

650INEXT I 
660:RETURN 
780: REM *****TRACE 
DE Lft CLE DE 



..... 
■ ■■ 
5,-50>-(|0,S2 
)-t!5. 
,0> 

i5, 0J-O 
22, IB)-< 

23,0; 
23,0)-C5 



■'. 



0, 2 

-38)- 



■ ! N 

5, -3?t-< lb, -40 
>-i20,-3?>-l2S 
. -32) 
705:DNE (25, -32)- 
<25, -25)-(28, - 
-28)-t 



■ .: L. I 



17, -38) 



786:C0LGR 
707:n=H*l 

709:REP *****IRftC£ 
DE Lft PCRTEE 
***** 
715:LJNE C8, 0)-l23 

0, 0) 
?20:L1NE C230.-I8) 

-<8,-]0) 
730:L:NE C8, -20)-( 

230, -20) 
735:L1NE (238, -30) 



<0, -4BJ-C0, 0) 

740: COLOR 2 

750: RE TURN 

S00:lJnE (J, X*6)-( 
J, X-*4)-CJ*2,X* 
2)-(J*4, X)-tJ* 
6, X)-(J*8, X«2) 
-CJ*I0,X+4) 

801;L!NE (J-18, X*4 
)-(J+10, X*6) 

882:LJNE (J, X*6)-( 
J+2, X*8)-U*4, 
*6, X+l 



0)-(J+' 



9)-( 



J* 18, X*6) 

803: IF K=0LINE (J* 
10, X*4)-tJ*18, 
X*32) 

884: IF K=1LET K=8: 
LINE (J*18,X*4 
)-(J+I0, X-28) 

805: IF 0=ILET 0=0: 
LINE U*)5,X*5 
)-(J*17, X+3)-( 
J + J7,X+7)-U + J 
>7)-(J*15,X 



*5) 



818 



II : GOSUB 950 

8I2:RETURN 

850:K=0:P=0:L1NE C 
J>10, X*4)-(J*1 
0, X-28)-<J*)8, 
X-25)-CJ*28, X- 
17)-U*17,X-20 
) 

85KLINE (J*17, X-2 
B)-U*J8, X-23) 

852: RE TURN 

855:ft=300 

868:L1NE U,X*4)-( 
J, X*6)-CJ*2,X+ 






■ . ■ 
!*2>-tJ*«, 

■ ■ 

19 950 
864 ; RE I URN 

'■■ 

■ 

J,X*4) 

LINE (J*2,X*2> 

-U'A, X)- U*4, 

*»JB>-<J«I . ■ • 
0)- CJ*6,X>-tJ. 
t, X) 
929:L1N£ tJ-6.xj-( 
J«8, x«2>-(j*8, 
. ■ ■ 

)-(J*10,X*4)-t 

i*&, X-2> 

■,,■.-.;. 
-£J«4, X-I8): 
LINE (J*6,X*I8 
)-C j*8. X*8) 

■ ■ « j .;n£ cj. 

10, X*4)-CJ«10, 
X-32) 

932: JF K=1AN0 P*0 
LET K=8:ilN£ t 
J>10, X*4)-(J«1 
8, X-28) 

936: IF K--1AN0 P-l 
GOSUB 850 

940:LiN£ CJ'2,X-8> 
-<J*4,X*10): 
LINE U*6, X*18 
)-(J*8,X*8) 

941: IF 0«1LEI 0=8: 
LINE CJ'15,X*5 
)-CJ*I7, X*5)-C 
J«17, X*7)-CJ*1 
5, X*7)-(JMS,X 
•5) 

943: IF P=1L£T P=0: 
LINE (J*18,X*2 
7)-(J*17, X*24) 
-<J«28, X*13>-< 
J*1B,X*28)-(J* 
10, X-32) 

944: GOSUB 958 

945: RETURN 

958: IF Q=1L£T Q=0: 
LINE CJ-3,X'5) 
-<J*J3,X*5J 

95UIF U=1LEI W=0: 
LINE (J-3, 10)- 
(J* 13, 18) 

932!H=JNI (M*4.2): 
GLCURSOR (0, -7 
fl):rcxi :CS1ZE 
|:LPR1N1 TAB M 
i F»: GRAPH : 
GLCURSOR (0,80 
):S0RGN : 
RETURN ■ 



8)-<J- 



■ X--10)- 



BALLE 



0^ c 



Un casse-brique ? Oui, mais dans une version tres origina- 
te et pas vraiment facile a jouer. 

George AUTHIER 

Moded'emploi : 

Le cadre contient trois rangees d'objets : la rangee du haul necontient 
que des balles alors que les deux rangees du bascontiennent alternati- 
vement des balles et des portes. 

Les differents objets (balles et portes) d'une meme rangee sont relies 
par des tirets que Ton ne peut atteindre. 

Le but du jeu est de faire ecfater le plus grand nombre de balles avec la 
boule munie de 4 pointes que Ton renvoie a laide de la raquette. Les 
portes sont infranchissables lorsque la bouiese deplacede bas en haul 
(ede rebondit) par contre. lorsque la boule passe une porte en passant 
par derrJere. elle fait disparaitre cette porte, que qui ouvre un acces 
supplementaire. 

Un effet. torsdu rebond de la balle peut etre obtenu en amenant au tout 
dernier moment la raquette en face de la balle (cet effet est difficile a 
obtenir sans entrainement). 

La balle repart alors dans la direction d'ou elfe est venue. 
Si Ton desire consulter le listing du programme faire CALLS F89B de fa- 
con a redonner aux caracteres leur forme normale. 

_1 CLS:C-l:»-0;P0K£6ta, IO 

_Z P»PEBO:lNK7 

_3 POK64eOZ4,7»:POME4B023,38 




t PEEKIU'll-73 THENV-l 



11-73 0» PEE 



: THEN V-V-2 






J P0KEV,ai:POKEV»i,6i:ooro6O 






fCONFiaUPITtON CdBACrERES 
l600,0:POKe4*«01,0;POKE46S02,0 

l,33tP0 



i[»»'.rrP>!P'>i',ii'i:i»:» 



,x-4B?aira«85i: 



: ) ,65: poke i/«zi ,es:P0KE iv 

J FOB )<-«8040 10 49090 ST6P4g : POIfEK. 



BEH THACE I 





KE46A03, IB 






_Z01 P0«E46ftO4.1ZrPO«F.444O7, 


3:P0KE4A«3A 


_*7 IFPEEKIEB»DBl-72"N0DB>OIHENDB-OB-eO: 


,0:P0KE4463?, !Z:P0KE46*39. JO 










Z-80 


_202 P0KE46639,ii3rP0><e44S6O,&J:P0KEflftaal 




, 30:POKE46ASZ, 12:P0KE4AAA3,0 




_73 BEH BEBOND SUB BOBD CADBE 


_.'"'- i".'- ' ii' '•',''.■;: ''it- i -m././,; . 




_74 BEM SONOBISATION 


, 63:P0KE4ftas7,ft3tP0KE4fis68,6 




_73 IFPEEKiEB'DBIOJZrHENSOUWDl, 100,0! PL 






AVI, 0,1, 10O 


_zo4 P0KE4Aaay , a3:pokeaaa70, 




_74 IF PEEKIEB'OBIOZS THEN80 El.SEIFDB-4 


, 33!P0KE*a7B4,O:POKE4a783,O 




10B08-'19rHEMDB>DB-ZEL3EDS'D 












_7» PEH BESONB SUB BOHO SUPEB1EUB ET fOB 


_20fl POKE4679I,0:P0*E4A80B,O 




res 






„80 IP PEeK'EB*OBl< >ftBrMEN90ELSEIFDB--3» 


0HE4&8IZ.4 




r»CN0B-4l 






_83 IFOB--4jrH€«0B-39 


o:POkE4a7iz,3J:POKEAa7ii, is 




_»9 BEH BEBOMO SUB BAQUE1I6 


_ZQB P0KE46714, 1 2\ P01E44713, 


2: P0KE4O71A 


_90 IFPEEKIEB>BBJ<,A1IHENI00ELSEIFDB-19I 


, 1Z:POKE4*717,1Z:POK644718, 1 






B 






_Z09 PDKE4ii7]9,33:RETUBH 




_?3 IFBB>OAND0B--4ITHCNDB--3«eU«IFBAt0A 


_39? BEM nusieue fik paptie 




ND0B--J»rHenDB--41 


„Z9B c-b:uahso 




_99 BEM BALLE GOBT 


_Z99 FOBX-irOJ:C-C-l 




.100 IF'EB'DBI >4VI!9THENI01EL9eOOT0107 


_3oo FOBB-i to3:husici,3,c,o 


HUStCZ.Z.C, 


_101 C-C-l: POKtEB, JZ: S0UN01, 400, o: PLAY 1 


o:platz,o, i, iooo:u»irzo:NExr 





i-stb«io :s«-Hio»i^ 






,3,C'3,OrHUBICZ,Z,C-3,0:PLA' 



_330 BETUBN 



Impression d'un nouvel Atmosphile 



Pour le plaisir de taper sur un vrai 
clavier, j'ai troque mon ORIC 1 
contre un ORIC ATMOS. A ce ni- 
veau, e'est une agreable surprise. 
J'estime ainsi mettre deux fois 
moins de temps pour dactylogra- 
phier un programme. Bonne ope- 
ration. Tiens, une touche suppl6- 
mentaire "FONCTION". II n'est 
pas dit un mot dans le manuel. 
C'est parait-il pour les disquettes. 
Tres bien tout cela, d'autant plus 
qu'on peut fa redefinirety mettre, 
en attendant, le "RESET" par 
exemple. 

Un leger regret : les touches sont 
un peu trop rapprocheespourpo- 
sitionner mes doigts avec facilite. 
Gare aux gros doigts. Le "BEEP" 
des touches est plus discret 
qu'avec I'ORIC 1. Un regret plus 
important: la fleche gauche se fait 
trop souvent prendre pour un 
"SHIFT" De meme la touche "RE- 
TURN" n'a pas une taille suffisam- 
ment 6vidente pour n'etre pas 
confondue de temps en temps 
avec les touches voisines. 
Avoc I'ORIC 1. pour bloquer le de- 
filement du listing, il me fallait ap- 
puyerdeux foissur"CONTROLE". 
Quelle gymnastiquc pour ne pas 
perdre trop de lignes Matntonant 
une seule fois suffit. El quand je 
passe en mode Editeur, le curseur 
se positionne vraiment en debut 
de ligne ... a condition que la ligne 
ne compte pas plus de 38 carac- 
teres 

Dans ce cas, le curseur se posi- 
tionne au debut de la derniere 
tranche de 38 caracteres frap- 
pee. 

Autre satisfaction ; quand jo char- 
ge mes anciens programmes par 
CLOAD" le nom du programme 
apparait en toutes lettres on haul 
do I'ecran. Mais apres un 'READY' 
bienvenu se lit la mention "ER- 
ROR FOUND" II n'y a pas d'orreur 
pourtant. Le listing ne contient 
pas de fauto et un RUN fait se de- 
rouler le programme convonabfo- 
ment... en principe. Done 1'AUTO 
RUN ne marche plus. Cortains 
programmes se bloquent. En el- 



fet, I'ATMOS a adopte tine nouvel- 
le routine de chargement encore 
plusfiable. Bon.jeveux bien, mais 
avec I'ORIC 1 je n'avaisaucunpro- 
bleme de chargement. Grace a 
cette nouvelle routine, on peut 
verifier (VERIFY) si un programme 
a ete convenablement enreglstre 
; on peut egalement enregistrer 
bouta bout des morceaux de pro- 
gramme (JOIN) ou encore stoc- 
ker des tableaux de donnecs 
(STORE). Si vous ne savez pas ce 
que contient une cassette, char- 
ger un nom de programme tantai- 
sisteetlesnomsdesprogrammes 
existantsvonts'affichersuccessl- 
vement au fur ot a mesure du de- 
roulement de !a cassette. Gare a 
vous si votre magnetophone a 
cassette debute vos enregislre- 
ments par un signal instable (le 
temps pour I'enregistrement au? 
tomatique de trouvor le bon ni- 
veau) Dans ce cas. a la lecture 
I'AUTO RUN ne marchera 
quapres avoir charge en haul de 
la memoire de I'ATMOS un court 
programme machino (fourni avec 
I'ATMOS) qui.bion entondu s'en- 
volera apres extinction de I'ordi- 
nateur. C'est une petite sugges- 
tion. Par contre, trois secondes 
suffisent pour le charger. Les pro- 
grammes du commerce qui debu- 
tent par un signal franc fonction- 
nent bien en AUTO RUN. 

Enfin, dernier point, mais impor- 
tant : puisque la ROM a ote modi- 
fiee, certains programmes ne 
passent plus correctomont. Ceux 
qui sont en Basic sont modilia- 
bles. Le TAB marche bien mainto- 
nant et il faut le ropositionner en 
enlevant 13 a f'ancienne valour. 
Cortains PLOT ou SCRN ou SPC 
seront a modifier. Le CALLSFBCE 
ou CALL63694 Le RESET fake- 
ment obtenu par CALL 555 ne 
fonctionno plus. Employer CALL 
583. Mais votre HEBDOGICIEL 
Pr6fore vous fourniradans un pre- 
mier temps les modifications no- 
cessaires pour faire tournor les 
programmesd'ORICIsur ATMOS 
Bonnes docouvortos... 

Didier VERRIER 



DEUX SUPER-CONCOURS PERMANENTS 

10000 francs de prix au MEILLEUR LOGICIEL du MOIS et un VOYAGE EN CALIFORNIE 

au meilleur logiciel du TRIMESTRE. 



Un concours de plus ! 
Rum de bien original dans cette 
fotmule, ooortant nous es- 
sayons de faire quelque chose 
de different : nous organisons 
un concours permanent tous 
les mois et tous les trimestres! 
Etavecdes prix dignesdes pro- 
grammes que vous allei nous 
envoyer! 

De plus, ce seront les lecteurs 
eux-memes qui voteront pour 
leurs programmes pref eres sur 
la grille recapitulative men- 
suetle. 

Pas de Jury, pas de decision ar- 
bitrage, HEBDOG1CIEL ninter- 
venant que dans le choix des 
programmes qui devront etre 
ORIGINAUXetFRANCAIS. Si 
votre programme n'est pas tout 
a fait au point, un de nos spe- 
cialistes vous dira comment 
lameliorer pour pouvoir nous le 
proposer a nouveau. 



Pour participer, il vous sutfit de 
nous envoyer vos programmes 
accompagnes du bon de parti- 
cipation ainsi que tout es les ex- 
plications necessaires a ('utili- 
sation de ce programme. 
Vous pouvez obtenir gratulte- 
ment des bons de participation 
en ecrlvant au Journal. 
Sonne chance! 

Reglement 

ART 1 , HEBDOGICIEL organise 
de facon mensuelle et tnmes- 
Inelle un concours dote de prix 
recompensant le meilleur logi- 
ciel du mois et du tnmestre 
ART 2:Ceconcoursestouverta 
tout auleur de logiciel quelque 
soil le materiel sur lequel il est 
realise. L'envoi dun logiciel en 
K7 ou disquette accompagne 
d'un bon de participation de- 
coupe dans HEBDOGICIEL ou 
envoye gratuiternent sur de- 



mande par la redaction de notre 
lournal constitue facte de can- 
didature 

ART 3 La redaction d'HEBDO- 
GICIEL se reserve le droit de 
seleclionner sur la base de la 
qualite el de I'originalite les logi- 
ciels qui sont publies dans le 
journal 

ART. 4 Ce sont les lecteurs qui. 
par leur vote, determined les 
meilleurs logiciels mensuef el 
trimestriel 

ART 5- Le prix alloue pour le 
concours mensuel sera remisau 
plus tard un mois apres la clo- 
ture du concours mensuei. 
ART 6: Le prix alloue pour le 
concours trimestriel sera remis 
au plus tard un mois apres la clo- 
ture du concours trimestriel. 
ART. 7: Le present reglement a 
ele depose chez Maitre Jauna- 
tre, l . rue des Halles 75001 Paris 
ART. 8: HEBDOGICIEL se reser- 



ve le droit d'interrornpre a tout 
moment le present concours en 
en avisant les lecteurs un mois 
avant 

ART 9 La participation au con- 
cours entraine I'acceptation par 
les concurrents du present re- 
glement. 

HEBDOGICIEL: 27, rue du Gal 
FOY - 75008 PARIS. 



Sera declare gagnant le pro- 
gramme qui aura obtenule plus 
fori pourcentage de vote par 
rapport a la totalile des pro- 
grammes recus pour un meme 
ordinateur. 

Ainsi, pas de favoritisme pour 
les ordinateurs plus puissants 
ou tres diffuses. 



BON DE PARTICIPATION 



Nom : 

Prenom : 

Age : Profession ; 

Adresse : 

N' J telephone : 

Nom du programme : 

Nom du materiel utilise : 

declare etre i'auteur de ce programme qui n'est ni une imitation ni une 
copie d'un programme existant. Ce programme reste ma propnete et 
j'autonse HEBDOGICIEL a le publier. La remuneration pour les pages 
publiees sere de 1000 francs par page (un programme n'occupant pas 
une page entiere sera remunere au prorata de la surface occupee) 

Signature obligatoire : 

(signature des parents pour les mineurs). 

Le programme doit etre expedie sur support magnetique (cassette ou 
disquette) accompagne d'un desch p trf detaille du materiel utilise, 
d'une notice d'u tili sation du programme, lies supports des program- 
mes publies sont conserves , n'oubliez done pas d'en faire une copie. 



RECOMMANDATIONS AUX LEC- 
TEURS QUI SOUHA1TENT FAIRE 
PUBLIER UN PROGRAMME : 

• Envoyez vos supports, mode 
d'emploi. listings et bon de parti- 
cipation dans une meme enve- 

loppe. 

Vous pouvez nous envoyer plu- 
sieurs programmes sur un meme 
support en findiquant sur votre 
Bon de Participation 

• N'oubliez pas et ceci est tres 
important, d'inscrire sur vos sup- 
ports votre nom, le nom du pro- 
gramme et le materiel utilise. 
Notez dans les premieres lignes 
de votre programme, sous forme 
de REM. votre nom, le nom du pro- 
gramme etle materiel auquelil est 



destine Nous pourrons ainsi re- 
perer facilement les listings, une 
fois sorlis de 1'imprimante. 

• Dupliquez plusieurs fois sur la 
cassette et a des niveaux d'enre- 
gistrement differents votre pro- 
gramme Nous aurons plus de 
chance d'arriver ale charger si les 
magnetophones ne sont pas tout 
a fait compatibles. 

• En ce qui concerne les bons de 
participation, mettez votre adres- 
se comp lete et voire numero de 
telephone (si vous en avez un). 

• Pour tout envoi tel que "petites 
annonces". "abonnement" et 
"programmes" specifiez sur vos 
enveloppes I'objet de voire cour- 
rier. 



Ne nous envoyez ptus d'envelop- 
pes timbrees, mettez simplement 
les limbres joints a votre envoi. 

• Expliquez les particulates de 
votre ordinateur et le moyen 
d'adapter votre programme a 
dautres ordinateurs. 

• Vu le nombre important de pro- 
grammes similaires que nous re- 
cevons. evitez de nous envoyez 
les jeux suivants : BIORYTHMES. 
MASTERMIND, PENDU, TOUR DE 
HANOI. CALENDRIER. BATAILLE 
NAVALE. POKER, JACKPOT. 
BOWLING. BLACK JACK. LABY- 
RINTHS, MEMORY SIMON. 421. 
OTHELLO, SOLITAIRE. LOTO. 



LA REGLE A CALCUL RE- 
COMPENSE LES MEILLEURS 
LOGICIELS EN OFFRANT A 
CHACUN DES PREMIERS 
DANS LEUR CATEGORIE UN 
OUVRAGE A CHOISIR DANS 
SON RAYON LIBRAIRIE (EDI- 
TEURS : BORDAS, DUNOD. 
EYROLLES, MASSON, NA- 
THAN, PSI, SHIFT, SYBEX). 



DD1 OFFRE CINQ CASSETTES 
VIERGES AU MEILLEUR PRO- 
GRAMME DE CHAQUE CATEGO- 



Le Club PPC-T otfre au rr 


eilleur 


logiciel e 


i langage FORTH sur 


HEULETT-PACKARD une 


adhe- 


sion grati 


ite a son club. 





Les editions du CAGIRE offrent 

au meilleur logiciel du mois sur 
HP 41, leur livre "autour de la bou- 
cle" de Janick TA1LLANDIER. 



SQUIRELLE RECOMPENSE LE 
MEILLEUR LOGICIEL DU MOIS 
PAR 2 CASSETTES A CHOISIR 
DANS SA LOGITHEQUE. 



DURIEZ CALCUL OFFRE AU 
MEILLEUR LOGICIEL DU TRI- 
MESTRE UNE MACHINE A 
ECRIRE BROTHER EP.22, 
2 KO DE MEMOIRE, INTERFA- 
CEERS.232.C. 



LOGI'STICK OFFRE UNE GAM 
ME COMPLETE DE SES CAS- 
SETTES DE JEUX POUR LE 
MEILLEUR LOGICIEL DU MOIS 
FX 702 P ET POUR LE MEILLEUR 
LOGICIEL PC 1500. 
IL OFFRE EGALEMENT UN 
"CALC" ET UN "GRAPHE" POUR 
LE MEILLEUR PROGRAMME 
CANON. 



CONCOURS "GEORGES LECLERE" 



Le programme de Georges LE- 
CLERE dans sa conception ac- 
tuelle. contient cinq parties diffe- 
rentes. qui sont toutes axees sur 
la manipulation de lettres de fal- 
phabet par I 'intermedia ire du cla- 
vier de I'ordinateur. 
Les deux premiers jeux sont iden- 
tjques {seul I'adversaire change : 
ordinateur ou autre joueur) et 
constituent une ebauche de Po- 
ker, ou les cartes sont remplacees 
par les lettres de I'alphabet. Cha- 
que joueur, a tour de role, appuie 
sur une lettre qui agira comme le 
levier d'un JACK POT : la louche 
utilisee genere une lettre sur 
1'ecran qui va se ranger dans le 
camp du joueur. 
C'est done un jeu de hasard. ou 



1'objectif (non defini dans le pro- 
gramme) serait d'obtenir le plus 
rapidement possible, une seriede 
5 lettres rangees par ordre alpha- 
betique (c'est un exemple). 
La troisieme partie est une de- 
monstration automatique ou 
"TIC" (le premier joueur) joue ses 
lettres dans fordre alphabetique 
et "TOC" (le deuxieme joueur) 
joue d'une facon aleatoire. 
La quatrieme partie est un jeu 
destine a I'apprentissage de I'al- 
phabet. Dans la version actuelle 
du programme, le jeu est concu 
pour 1 joueur qui joue centre I'or- 
dinateur. Chacun des deux 
joueurs possede un camp consti- 
tue d'une ligne contenant les let- 
tres de I'alphabet et d'une ligne 



initialement vierge qui contiendra 
les reponses correctes pour cha- 
quejoueur(cf 01). 
Lordinateur commence la partie 
en generant une lettre qui vient se 
placer dans son camp. II fait en- 
suite clignoter une des lettres du 
joueur qui doit alors appuyer sur 
la louche correspondante du cla- 
vier. Si la reponse du joueur est 
correcte, la lettre est rangee dans 
le camp du joueur. Si la reponse 
est incorrecte. la lettre reste a sa 
place et I'ordinateur reprend la 
main. 

La cinquieme partie est identique 
a la quatrieme, mais avec utilisa- 
tion des manettes de jeu. 
Le programme de Georges LE- 
CLERE est en fait une ebauche du 



jeu de lettre. 

Lobjectif du concours est de reali- 
ser un programme complet (de- 
monstration automatique, interet 
du jeu, etc.. . ) axe sur les lettres et/ 
ou les caracteres speciaux (!. :, 
etc.). La manipulation du clavier 
etant la base de ce type dejeu. un 
jeu ou un systeme permettant 
I'apprentissage du clavier devra 
etre inclus dans le programme. 
Comme vous pouvez le constater, 
le plus dur reste a faire. 
Remarque : Le listing est com- 
mente. afin de permettre aux per- 
sonnes possedant un ordinateur 
autre que I'APPLE de I'adapter fa- 
cilement. 



ALPHABET 

KiUFur- . 

CAMP 

JOUEUR 1 

CAMP 

JOUEUR 2 

ALPHABE T 

JOUEUR 2 

01 j ECRAN DE JEU 



ABCDEFGHIJKLMNOPQRS7UVWXVZ 



A&CDEFGHIJKLMNOPQRSTlIVWXVZ 



ALPHABET 1 
JOUEUR 1 
CAMP 
JOUEUR 1 
CAMP 

.inin u(- ,• 

ALPHABET 
JOUEUR 2 
REPONSE CORRECTE DU JOUEUR 1 



ABCDEFGH JKLMNOP0RS»UVWXYZ 



ADC EFGHIJ1 I CN.'iinr.-sru' 



REGLEMENT 

Article 1 

HEBDOGICIEL organise un con- 
cours du 22 Mars au 2 Mai dotede 
prix recompensant le meilleur lo- 
giciel s'inspirant d'une idee de 
Georges LECLERE etdontle nom 
est "POKER-ALPHABET" 
Article 2 

Ce concours est ouvert a tout au- 
teurde logiciel quelque soitle ma- 
teriel sur lequel il est realise. Ren- 
voi d'un logiciel sur K7 ou disquet- 
te accompagne du bon de partici- 
pation "Concours Georges 
LECLERE" decoupe dans I'heb- 
domadaire constitue facte de 
candidature. 
Article 3 

La redaction d'HEBDOGICIEL se 
reserve le droit de seleclionner 
sur la base de la qualite et de la fi- 
delite au theme propose (POKER 
ALPHABET) les logiciels qui se- 
ront commercialises. 
Article 4 

Un jury compose de speclalistes 
de la distribution de produits in- 
formaliques et de pedagogues. 
preside par Georges LECLERE 
determinera le meilleur logiciel 
pour chaque ordinateur et, parmi 
ces meilleurs logiciels, un ga- 
gnant toute categorie. 
Article 5 
La cldture du concours se (era le 2 



Mai 1984 a minuit, lo cachet de la 
posle faisant foi. 
Article 6 

Los prix alloues seront remis au 
plus tard 1 mois apres I'annonce 
des resultats. 
Article 7 

Le present reglement a ete depo- 
se chez Maitre JAUNATRE, 1 rue 
des Halles 75001 PARIS. 
Article 8 

Le prix principal etant un contrat 
d'edition engageant HEBOOGI- 
CIEL et SHIFT EDITIONS a com- 
mercialiser les logiciels gagnants. 
les lauroats s'engagent de leur 
cote a donner la preference a 
SHIFT EDITIONS pour cette com- 
mercialisation, et ce, pour tout 
pays. 
Article 9 

La participation au concours en- 
traine I'acceptation par les con- 
currents du present reglement. 



LE JURY 



Preside par George LECLERE. dos 

specialistes de DOM. do la FNAC, 
d'HACHETTE, d'lLLEL, de la RE- 
GLE A CALCUL, de StDEG, do Sl- 
VEA ot do VIFI NATHAN so rfiuni- 
ronl pourndmirer vos cnuvros An- 
nonco dos rosuttats lo 25 mal, a 



ABC DEFGH* J V\_ MNOPDRS T U VW X f I 



JOUEUR I 
CAMP 

JOUEUR 2 
ALPHABET 
JOUEUR 2 
L'ORDINATEUR JOUE (O).ET 



ABC EFGHI.JI-I.MTjnrrjf-^li.iV', 



ALPHABET 
JOUEUR 1 
CAMP 
JOUEUR I 
CAMP 
.Hill! in- . 
ALF-HABET 
I r ii .-f i.!i- : 
REPONSE INCORRECTE (EXtW) DU .iniiMH I 



OliCDEFGHI JJ'LMNOPQRS-UVWXVZ 



..i-iiifi.i i, hi ii i r*Nf)i ('!•': rnvw 
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BON DE PARTICIPATION 
CONCOURS Georges LECLERE 



Nom : 

Prenom : 
Age: 

Profession : 
Adresse ; 



Nom propose pour le programme : 

D6clare avoir pris connaissanco du rdglcmont du concours "Goorgos 

LECLERE" public dans HEBDOGICIEL et on nccepte le reglement. 

Signature obligatoire : 

(signature des parents pour les mineurs) 

Le programme doit etre expedie sur support magnetiquo (cassette ou 
disquette) accompagne d'un modo d'emploi tres detaille. Los pro- 
grammes non rotenus ne sont pns rendus. 
Indiquez "concours Georges LECLERE" sur I enveloppo. 



C'EST NOUVEAU, 
CAVIENTDESORTIR! 



TRS'S UNION 

AUT , I'associatron des utih- 
sateurs de TRS organise le 
31marsapartirde14h30, une 
demi-joumee sur (e theme 
"PERIPHERIQUES D'ORDINA- 
TEURS 1 ' 

TANDY sera la pour presenter 
les modeles 4. 3, 2. 1 et 100, les 
toprtmentea disquettes. ta- 
bles graphiques et modems 



PENTASONIC exposera car- 
tes couleurs HR. synthetiseur 
et interface floppy disque 1. 2. 
3 

TECHNOLOGY RESSOUR- 
CES sera la egalement avec 
imprimantes. table tracanteet 
modem. 

Cite Universitaire. Maison des 
industries alimentaires 5. bd 
Jourdan 75014 PARIS ■ 



LEHIT 
DU BLASE 

Chora amis, me voila de relour 
apres une longue semaine 
dabsence. Vous vous souve- 
nez de moi ? Je vends des ordi- 
nateurs et des logiciels a lon- 
gueur de journee dans un ma- 
gasin specialise et dans cette 
rubrique. j'essayede vous f aire 
pari des meilleurs ventesde lo- 
giciels ou, si vous preferez. que 
taut-il acheter pour etre 'in" 
Cette semaine je vous parlerai 
encore d'APPLE tie et du logi- 
ciel qui atteint les sommets du 
HiT-PARADE ll s'agit evidem- 
mentdeSORCELLERIE.Ieseul 
veritable jeu de donjons et dra- 
gons traduit en francais. Vous 



savez que je suis un fanatique 
desjeun d'arcadeset la patien- 
ce nest pas mon tort, ni cello 
de ma temme, pourtont SOR- 

CELLEfllErn'alaitvivre des ins- 
tants fabuleux a travors une 
multitude de scenarios et dans 
la peau de plusieurs personna- 
ges. il ma tallu combattre des 
monstres, explorer des labyr in- 
thes. conjurer des sorts ou en- 
core avaler des philtres magi- 
ques Reserver vous des nuits 
blanches pour arriver a bout de 
ce logiciel d'une bonne quahte 
graphiqueet dontil exist edeja 
troisautres scenarios compati- 
bles (en americain pour I'ms- 
tanl) 

Revenons aux jeux de reflexes 
comma SERPENTINE : Super, 
cette chenille dans un labyrin- 
the style PACMAN qui doit . 



manger des salades el taire des 
petits sans se taire devoror par 
un serpent aflame 
FROGGER. un Ctaniqus, - ■■: 
en scene une grenouille qui 
doit traverser lautoroute sans 
se taire ecraser par des con- 
ducteurs aveugles. puis traver- 
ser la riviere sans se taire man- 
ger par des crocodiles et sauter 
de tronc en tronc pour eviter 
des hippopotames Vous arn- 
verez de lautre cote del'ecran 
en sueur FROGGER peut se 
jouer au clavier sans manette 
de jeu. 

AE est Ie premier jeu en trois di- 
mensions ou Ion controle la 
distance de tir par Ie relache- 
ment du bouton de la manette 
de jeu. Vous devez defendre 
une cite galactique contre des 
nuees de vaisseaux spatiaux 



qui attsquent par • • 
utilisez convenab"- ■ 
-CAN0N-LASER-TUR80- 
AVEC-BRETELLES-AUPtA- 
FOND" (vouS Survc- 
pas ? .) vous passez a des 
ecrans et a des situations dtftft- 
rentes. un superbe jeu graphi- 
que et sonore 

WAVY-NAVY est un ( eu denva- 
hisseurshilarant Vous etessur 
un bateau en plemetempeteet 
vous devez descendre vos en- 
nemis en subissant lassaut 
des vagues Et croyez-moi. ce 
n est pas chose aisfle de viser 
quand on est balote par la mer 
dechamee Le gars quia pondu 
ce programme devait SHe mort 
de rire devant son listing 
Saiul et a la semaine prochaine 
pour un nouveau cocktail sa- 
voureux 

CLAUDIUS 




l_e premier HEBDOGICIEL 
SOFTWARE pour APPLE II et 
lie est iivre avec un emballa- 
ge de disquette reutihsable 
et un livret d'utilisation, il 
comprend 12 togicieis : 

BASIC et D.O.S FRANCAIS 
pour programmer en fran- 
cais sur APPLE avec ou sans 
extension memoire. C'estun 
APPLESOFT en francais dont 
les mots sont redefimssa- 
bles ce qui laisse la possibili- 
ty de personnaliser les ins- 
tructions et de creer voire 
propre langage basic en 
francais. Pour apprendre !e 
basic ou pour I'enseigner 
(langage machine), 

PROGRAMMAT10N STRUC- 
TURES pour une program- 
mation simplifiee et clarifiee. 
Acces aux instructions 



WHILE WEND, REPEAT. UN- 
TIL, IF THEN ELSE a I'aide de 
I'ampersand (&) (langage 
machine). * 

MINI LOGO permet d'acce- 
der au graphisme tortue et 
aux procedures simples utili- 
sees par le langage LOGO- 
Les primitives sont adapta- 
bles. ideal pour initier vos en- 
fants a LOGO. 

FONCTIONS SUPPLEMEN- 
TAIRES DE TRAITEMENT DE 
CHAINE. puissantes fonc- 
tions simplifiant la program- 
mation sur les chaines de ca- 
racteres. Plus de ASC 
(LEFTS(MIDS(AS,1,3))) illisi- 
ble. mais des fonctions clai- 
res comme GLR, recherche 
un groupe de lettres ou SCH. 
extraction de chaine avec 
critere d'arret alphanumen- 



que ou MCH, modification de 
chaine par remplacement 
(langage machine). 

SAISIE FORMATEE DE DON- 
NEES. indispensable pour 
une bonne gestion d'ecran 
lors d'une saisie. Permet de 
stipuler le nombre et le type 
de caracteres ainsi que les 
differents caracteres de 
controle. (langage machi- 
ne). 

EDITEUR DE PROGRAM- 
MES pour resoudre tous les 
problemes de correction de 
lignes basic : insertion, com- 
pactage, suppression, re- 
cherche de mots. etc. (lan- 
gage machine). 

GESTION DE CARNET 
D'ADRESSES. une gestion 
de lichier modulaire simple 



et efficace avec presenta- 
tion des donnees sous forme 
de carte de visite. 

BISCRU. un jeu de reflexeset 
d'attention ou il faut eviter de 
laisser tomber les tartes du 
tapis rouiant. Un graphisme 
elabore digne des jeux de 
cafe ! 

PARACHUTISTE un jeu d'ar- 
cade francais. Les paras 
comptent sur vous pour ne 
pas tomber a I'eau ! 

SOLITAIRE, un jeu classique 
au graphisme soigne, 

Et ENQUETE, mi-cluedo mi- 
mastermind, decouvrez I'as- 
sassin, I'arme, le mobile et le 
lieu du crime parmi une foule 
de suspect. 



Nom'Prdnom 
Adrewe 

■ 



PRIX UNI TAIRE 590 F 
conlre rwnboorsomonl - Franc* t- 20FO 
eirnngsr + 30FO 
DATE SIGNAtURE 



Des programmes 
pour votre ORIC ! 



Voire ORIC 1 est gourmand ? Ahmentez-le avec des program- 
mes originaux. simples, toujours passionnants et souvent sur- 
prenants. 

Du jeu de reflexion classique (Tours de Hanoi. Pendu. Color- 
mind, Awele, etc ) aux utilitaires performants (Generateur de 
Caracteres. Tn. Calendrier, Histogramme. etc.) en passant par 
les jeux de reflexes (Terroric. La Plume et le Poussin, Labyrin- 
the. etc.) les jeux d'attention (Dames, Rotations, Enigmes, Cof- 
fre-fort. La Reine. etc.) ou de hasard (Poker. Quinze-Vainc.etc ) 
et sans oublier les mathematiques (Fractions. Nombres Pre- 
miers. Traceur de Courbes, Multiprecision, etc.), Jeux et Pro- 
grammes pour ORIC 1 offre un large eventail de programmes 
aux couleurs. graphismes et sons tres soignes Jeux et Pro- 
grammes pour votre ORIC 1 . une mine d'or pour voire ORIC 1 ! 
Cela vous coutera 155 francs chez les bons revendeurs ou di- 
rectement avec le bon de commande ci-dessous. 



Nom/Prenom 



PRIX UNITAIRE : 15SF 

co ntro- rem bo of semeni • Franco + 20 FG. etranger + 30 FG 

REGLEMENT JOINT ,00 F OATE 

cheque G CCPG SIGNATURE 




DES LOGICIELS POUR ORIC, SURMESURE. 



POKER ALPHABET 



Listing du programme Georges LECLERE 



suite de la page 7 



PRESENTE SUR APPLE 



INSTRUCTIONS ViCIWIT, 

:.■■■■.. || OM CM KM 



■■ 



CYS....1 

EN colonn 

'IE A PRIN 
T AT. LOCATE. CUR9ET. ETC... 



i position or LA mamf.tte de je 



RNDi RENVOI UN NOMBRE ALEATOIRE 

LF SON EST GENCRE PAR UNE ROUT IN: 

i EUR IMFI.ANTEE A El iji ii (S 

EF PAP CALL 770. POUR L€S ORDIMA'i 

SECANT DCS INSTRUCTIONS DE GESTIDNS DU 8 

ON. LE PROBLEHE E?>T SIMPt. IFIE 



13 DIM OP*<3,2>.S0[3,4>.'j:t I 52 

i GOSUB 230OO! HOME i TEXT 
20 N - 3:0- - Ii05 - HZZ • 1 

72 oosub i20O0t rem present at io 



62 HOME i oosub ir> 

ES 



REN REGL 



*:. o- - 03 » I 

a3 HOME i GOSUB I2290i REn CHOI/ 

DU JEU 
66 RE" N-NUHERO DU JEU 
70 ON h GOSUB 13300,2000,300, 113 

. ■ 
73 IF •( - 3 TWN V - 10: GOTO 10 

90 IF n - 3 THEN GOSUB 70Oi GOSUB 

: F^JTO 90i HONE 
B9 IP N • 4 THEN GOSUB WO 

I rjDSUB 190Oi NONE 
73 GOSUB 220Ol HOME 

r'-FFICHAGE CAW JOUEUR 
JOO 6 - 0:B ■ liH ■ IO«K - 235 



103 



I AB 



:*. 



<26 i 



> 4 OR 



RND (I) 

AB ■ 25 THEN AB - • 
lOS ;FN-iOPN-2TJPf 

H • 3 THEN AB - O 
HO S* « "ABCDEFGHUKLMNOPORSTUVW 



132 VTAB (2* ■ 



REN BOUCLE SUIV. 



140 for c • i ro v 

143 MM - 10 • RND (11 * 1 
I Ml ON rt GOSUB 900,1700,4 



•13 FrM FIN JEUX 



214 | 
213 



220 GOr.UR : 

223 IF N - 4 THEN BOSUS 43001 GOSUB 
1 SOOO 

.-'J 120O 

' ■ : 

234 : 

■; -', fFr [.Fnfjr, -,:w,r inn 

236 : 

237 : 

230 H* - "POKER-ALPHABCTiDEMONSTR 

AriON AuTOMATIDUE" 
233 IP S3 I THEN 300 

2*o home i TA - 1 2 
270 D - I99i FOR E - 40 TO I STEP 

- 1 1 FDR I - I rD El VTAB T 
A: HTAB ll PRINT HIO* (M*.E 
.III NEXT ll ROE 760, Ol POKE 
76-7,3i CALL 770lD - D - It NEXT 
E 

297 FOR P - i TO lOOOi NEXT P.BS 

- 4i OQfiue SOOO 
TOO A* - -TIC~lBS - "TOC" 

510 VTAB 2l HTAB ll PRINT A*"!"! 

I VTAB 22i HTAB Ii PRINT BS" 

I'll IF 03 - I THEN 10O 
320 RETURN 

322 IF 03 - 1 THEN GOTO 100 
130 RETURN 
334 i 



NS - - POKER-AC PHABETUFtl A 

VtC LE3 PADDLES "i IF 03 
I then CTTOJRM 

HOMB :D - I79i FOR E - 40 TO 
I BTW 1 - Ii FOR I - 1 TO ll 

VTAB I2t HTAB Ii PRINT MID* 
<N*,£,I)i NEXT Ii POKE Mi P 
J POKE 769. 3i CALL 170*0 - 

- 1 [ NEXT | 
FOR R - I TO SOOl NEXT PlOS - 
on • ir RETURN 



' It u .-.vi i j ,.i,r,i r ■, 



- PDL (O) / 1" • li FUR B - 
' TO Hi VTAB Bi HfAB / • Uf PRINT 
MIO* (00,0, III VTAB fl - li HTAB 
• Di PRINT - "|| OOSUB 900 



AS 4 - Bi HTAB / • 

I I PINT MID* (BS.F, I i : VTAB 

Bi HTAB i ■ F: ir-iriT - 

II BOSUS aOOl NEXT E) 

E IURN 

■ K - ll IF | ■ 10 THEN 100 
DJ E '48, * : ( OJ l '69. ftit CALL 



1 
M INT 124 * RNfl Eltn ■.■•/ 

2l HTAB tl PRINT (W-i-, viae, 
ll HTAB 2 . AB - l: POKE - 
167-68. Ol GET X*i IF A3C (X* 
> ' A3 • c.f; THEn RETURN 




420 * 



• I + f ASC (Ml - 43i : FOR 

- 2 TO H! VTAB Bi HTAB I * 
PRINT HID* IB*,W7,I>I VTAB 

- ll HTAD Z • W; PRINT " ■ 
SOSUB 300l NEXT B:AB - AB 
It RETURN 



CMTRAINEMENT 



713 FOR R - t TO ISOOl NEX! 

N - 4 THEN RETURN 
730 RS - G: GOSUB SOOOiSt - 

EFGMIJKLnriOPOPSTUVWXYZ ' 



744 VTAB I I HTAB Z + ll PRINT S4 
: VTAB 12: HTAB I - 1 : PRINT 
S4: VTAB 23i HTAB 1 * U PRINT 
S« 

7SO FOR A • I TO lOlB • POL (0) 

t 10 * ll FOR B - 2 TO Hi VTAB 
Bl HTAB I - 01 PRINT rlIO« ( 
OS, t. Ill VTAB B - 1: HTAB Z » 
G: PRINT " -»| GOSUB SOOl »E*T 
B; NEX1 A 

BOO RSI - 2i 906jUB 3000 

BIO VTAB 9 : HTAB 1: FLASH j PRINT 
"ENCORE UN COUP"'" I i GET X» 

813 NORMAL : HOME 

816 IF Xt - "N" AND N - 3 THEN 

S19 IF «» I "N" AND f ' / ' 

0" THEN BIO 

-O- AND N - S THEN 7 



823 



30 

If X% ■ 



-O' AND N - ' 



THEN ( 



H3f.> RETURN 

TOO G • G ■ |i fop B - 2 rO Hi VTAB 
8: HTAB I *■ D: PRINT MID* ( 
SS.O.IM VTAB B - Ll HTAB I ■ 
G: PRINT " "i: GOSUB SOOl M XT 
Bi RETURN 

930 A - I. • RND '11 ♦ 1 1 FOR B - 
, Id Hi VTAB (24 - t» ; HTAB 
/ - A: PRINT MID* (3*. A, 111 
: VTAB '23 - B): HTAB ? « Ai 

i RIN1 " "! : 60SUB 3001 fiFH 

Bl RFIURN 



■ 233 TO 100 BTI ' 



PCK1 768. Di POKE 769. M 



IO30 NEXT D 

1033 K - 200 

1039 RE IURN 



1042 REM EVALU 



1044 i 

1130 FOR P - I TO 3000i NEXT PjR 

9-41 DOSUP SOOO 
1200 VTAB lOi HTAB ll PRINT A*i" 

1210 BL» - " 

"I VTAB 

|l PPINT BL«l VTAB 2l PRINT 

BL* 
1720 VTAB 14i HTAB It PRINT B»l " 

1730 VTAB 23i PRINT BL»i VTAB 77 
I PRINT BL*i VTAB 21 i PRINT 
Bl.* 

MOO R3 - 7: GOSUB SOOO 

1420 FLASH 1 VTAB 111 HTAB 2i PRINT 
"QUI A QAONev-'i FOR P - 1 TO 
20001 NEXT PiAB - Ol IF N - 
3 AND O-, - 1 THEN 62 

1490 FLASH 

14') I ! 



ISOO 


VTAB 22! HTAB 7i PRINT "ENT. 




ORF UNC PARTIE - ""!! GET R*iRS 




- 3i GOSUB SOOOiOS «• 03 * I 




i IF R* - -0- THEN 1330 


ISIS 


IF M ' - -N" THEN 1060 


1316 




1317 




1318 


REM TFRMINE 


131* 




I ". . ' ■ 




IS27 


F'fi - 4> IWir.llB 90001 N1H*MAI 1 




VTAB i 7] ppiht - 




. . -'< mi NT01 "i VTAB 3 1 




■ END 


1323 




1326 




1327 


M n i ' -i'ini }' AVI ( HI hi ii (i ' 


1 378 


, 


1",."/ 




1 -, :• r 


print . PRINT ■■ PRINT "iv/i i 




i r Mrnr ji ii'"i : i,i r RSi HORt 




iRB - 4i GOSUB SOOO 


13-,o 


IF R» - "N- THEN 63 




li i.« - "ij" nil n 14. i 




B0TO 1030 


i'.m 


Rfl - 1 i 000UB 0O00I UN-; 



■ N 



IF M ■ -i 

. ■ 

' VTAB 7i HTAB I I PRINT AS I 
ll BET "»: IF ASC ■'*! 90 

■ . i ■ ..-, ioto I ' 

) U • 1 * ( ASC IKSJ - 63i • RND 

<i>: fop I. - . ro Hi /TAB Bi 
HTAB I • Hi FRIMT MID* is* 

,M,!Fl VTAB B - || HTAB J ' 

Ml PRINT " -t: GOSUB 5"": fff I T 

Bi K IURN 

2i HTAB ll PRINT AS-s- 

li BET f*t 1< ASM ITS) v.;. 
OR ASC 1**1 - 6R GOTO 1 700 

I M - 1 * ( ASC IYS1 - 63) - RND 

(1)1 FOP B ■ I 10 Mi VTAB 24 

- Bl HTAB / • Hi PRINT MID* 
(6*,H,l>i '/TAB :-, - B: tir^.1. 
I • W: PRINT - "II GOSUB 300 
I NEXT B: RETURN 



REM CHOIX DU I 



■ VTAB 27: HTAB t3l FLASH i PRINT 
"E'ES-VOUS:"! NORMAL I PRINT 
: PPIHT : PRINJ : PRINT i PRINT 

i FOR P - 1 TO 3: PRINT NI*(P 
,1'lRS - Vrtl INI*(P,2I>I GOSUB 
SOOO; f r-lrif : PRINT i NE « T P 

' GET R»:H - VAL (RS) i IF M < 
1 OR M > 3 THEN 1930 

i V m H « lOl RETURN 



1952 
1933 
1954 

,.:'i-x. 

2003 



REM HON DES JOUEURS 



2200 
2201 
2202 
2203 
2204 



> I THEN l 7O0 

VTAB 8: HTAB 1: PRINT ■'«*! 

DU PREMIER JOUEUR""! PRINT i 

INPUT A*iRS - li GOSUB SOOO 

VTAB I4i HTAB 1: PRINT "NOM 

Wi oeuxiemf: jouEuf- -i PRIH1 

INPUT B*i RETURN 



REM ATTENTE AVANT JEU 

HOME iRS - 2i GOSUB SOOAi VTAB 
IB: HTAB I2i PRINT "VOUS ETF 
S PRET'"i FOR P - 1 TO IDOOi 

NEXT F'iRS - 4i GOSUB SOOOi RETURN 



4(00 


HOME :'•* - ■ABCDEFOHIJKLNNO 




PDr<9TIIVW«V7 "iRB - INT (26 • 




RND (1)1 




FOR C - 1 TO V 


4120 


MM - lO • RND (II * li VTAB 




li HTAB 1 • AB * 1: GET X*! IF 




ASC <X»> < - 43 • AB THEN 




4444 


4 I H 


W - I • ( ASC (X*l - 431 • RND 




(III FOR B - 2 TO Hi VTAB Bl 




HTAB / « Ut PRINT MID* (S* 




,U,I)i VTAB B - Ii HTAB I ♦ 




Mi PRINT " "li GOSUB SOOl NEXT 
6 
IF Id - I IIIEN AB • AB * 1 


4280 


42BS 


IF IA - 2 THEN AB - INT (2 




6 • RND ( I ) ) 


4290 


IF AB 25 THEN AB - 




NEXT C 




oo to i 200 


4000 




4301 




4002 


REM AUTFBJ 1 BBA1 


4303 


1 



HOME : VTAB 12i HTAB 9| FLA3I 
i PRINT "ENCORE UN PF 1 I T ESI 
AI-"i NORMAL i VTAB 27i GET 



4510 


R3 - 4. GOSUB 3OO0I IF R* 




"0" (KIM 100 


4520 


U R» ■ - "N" THEN 430O 


4330 


RETURN 


3000 




SOOl 


I 



S0O3 REM ROUTINE POUR SON 



SI • S0(RS,lliS2 - SO(RS,2)l 

SI - S0(R9,3llM - S0IRS.4I 
FOR D - SI TO B2 STEP S3i POKE 

768, Ol POKE 749. Mi CALL 770 
IF RS - 4 THEN PRINT 
NEXT Di RFTURN 



1OOI0 IF > t THIN Rl IURN 

10040 VTAB 24i HTAB ll PRINT "VO 
'nil VfMIG I.ES REniES7 Pi || OCT 
RSi IF R* - "N" THEN NORMAL 
i RE T U RN 

!"•>-..' II Rt "O" THFN l-i04'i 

|..j'i.. IHiMI i -.1 II li- I-..I 

101 10 VTAB . ": i RINT "CI JI U, (NV 

i rill I l-.l It- I'. IAN I I 1,1 flpfil '." 

i'U 13 PR INI i PRINT i i i ami 

10] i T HTAB i /. i RIN1 "I i CI I '■< ' 

IOIIB NORMAt. 

("1 .-' i RINT : I BIN! 

101 30 PRINT ". ..S'APPEI LE IT f'0>. 

ii (.ii HAM i . ■ 

l'l!4'l PR INI l PRINT 

101 SO PRINT "ii l xi'iir "ii ii R8H 

I PRINI "CINU-l! NORMAL I PRJR 
.11 II" DII I I •■• fic. - 
101*0 PRINT i f Rim i PRINT "| I ', 

VOICI "i SPEED- 7SS 

10170 FOR P - I 10 ISOOl MX1 i 



■* ('!•*.-.•!.. .« 



CI SORT Au HASAAO. . . 
, PRINT -SAM", FORCE"'-. 
CS/ONORE A CE OUT... 
! fFINT -VOUS VOULIEI- 

1 Nf XT f 
t-.'W SPEC 

1 • TURN 
IOSiOO HOME : VTA! 

: FRIMT -CMAOUE JOUEUP IAPI 
UNf LE' i , ... 

VJUR DF ft 

OLE 

HI i IT "I 

CI SORT AU HASAPO. 
: PRINT -SANS FQRCEMENT CORR 

MORE A CE CUE... 
: »RtNT -VO-* All 
JOUEURS* 
I0S70 FOR p - i in ZOOOl r*" P 
10580 SPEED- 733 

ftj TURN 
10600 HOME ! VTAfi 24i SPEED- ISO 

: print "cec1 est une ocmons 
tratiOn automaiidue- 

1062O PRINT : PRINT "0<l 1L N"y A 

R1FH C I Altl ■ 
10*70 FOR P - I TO 2IX-IH M >1 I 
10680 SPEED- 233 
10490 RE 1 URN 
I07OO HOME ! VTC! J4l 

: MINI « JEU Efll CONCU Fti 
UR VOUS . 
10710 PRINT i FLASH i PRINT "L'A 
LPHABET-l FJORMAt 

INT i PRINT -APRE3 UN EH 
TRAINEMENT.VOUr. DCVCZ... 
I PRINT -TAPER LA BONNE LETT 
M ..-: PRINT i PRINT -IA.0O 
IGNOTE- 
PRINI : I PINT -TOUIE AUTRE 
LETTRB IApfi ne DC0I I '- 



P • 1 TO : '* KT '■ 



: 

■■'■;■'. 

II PAS I 
i . 

IS UTILI1 
i .■ i i ■ . . ■ ! niNi 

: i i INI ■ COW i > ll "INI A 

,C'EST U 'II FLA I I 
PRIN 
10030 PRINT i PI IN' " 

il r-l f,i ,. ■ 

Plash i pi ini ft no 

10B30 PRINT : I RINT "T I 

■■:...:' 
■ PRINI ■ I 'I • I 1 1', I 

T IONS" 

■' i ■ t ro .' : I 

I 

101 W Rl (in. u 

i I IMI j PRINT 
10*00 PRINT -VOUI i I VOuS CONNA1 l 

Rl nfi AUTRJ JI U "i mini | ii- (Nl 
i GET R*: IF RS "O" AND 

RS "if mi N 10900 

10910 II RS "ll* IIIEN UOStIP 10 



10 



li... 



IF R* ■ 



GOTO 109 



I'.-'M i.i n i.iiftin I, i i -, i uirir, 
10937 I 

■■■■"■ I- . «| |l[< . 

i"'-" vif.1i i.'i i i. ini "vou i / vim 

. -'ill Nlllil „ I OMITLR. . . "! PRINT 
: PRINT : I ( ASH I PRINT "LBS 

POINTS?"! NORMAL i PRINT i PRINT 
1 GET R*i IF R» "O" AND 

R* < > "N" THEN I093O 

I096O IF R* - "N" THEN RS - 4i BQSUS 
SOOOl GOTO 63 

11000 RS - 4i OOSUB 30001 5PEED- 
30 1 VTAB 241 PRINT "VOICI GtJ 
ELOUES I OSES POUR..."i FLASH 
I PRINT i PRINT i PRINT "COM 
Ml I. I I '. I IIIMI!,. . . , . ■; HIH.MAI 



1 FILE" 



I I'M 



II TAB i 



"DAN^ BON' I 
I I i ASH i HTAB 14i PRINT "AL 
PHABBT-i normai 
11040 PRINT i PRINT i HTAB .'2l PRINT 
"A OAONE'' 1 "! FOR f - I TO 7 
OOOi NEXT Pi PRINT i PRINT ! 
■PEED" 2001 PRINT i PRINT I 
PRINT "ENCORE OUELOUFS IDS! 
B-7- 
I 1070 GET RSi IF R* < • "0" AND 

»■* ■ "N" THEN I IO70 

II 080 RS - 4i DOSHA SOOOl IF R* - 

~N" THEN 63 
lllOO VTAB 74i PRINT "CEI.UI QUI 

III VINI 1 I ', I I I IKI ', lllll 'I ll-'IMI 

I PRINT "MANOUENT CHEZ L'AUT 
RE, "I PRINT i PRINT "A [1AGNE 

HMO FOR P - I TO JOOOi NfXT Pi 

RS - 4i GOSUB SOOOl HTAB Tl BPUD" 1001 
VTAIJ 12i FLASH i PRINT "A VO 
US DC TROUVER D'AUTREM I0F.E8 
■"I FOR P - 1 10 30001 NEXT 
PiRB - 4i OOSUB SOOOl SPtSO* 
7331 NORMAI i Rl I I 'I'll 

1 1500 ■ 

11501 REM NOM 
1 1303 • 

I 1303 B* - -APPLE Il"i VTAB fl! UTAH 

II PRINT "MON NOrt.C'ISTl'l PRINT 
I PRINT B*|RS - ll OOSUB 300 

"I VfAB 14i HTAB ll PRINT "F 

T LE VOTRI— "i PRINT i INPUT 

A* | RETURN 
I. ..,,,., , 
l,'',C| R| H ('REM NIATION 

i goo ■ ■ 

t -■■ "rl REM t-fcMM -lillUIUU Mill. 

'in vt.v.-.A.n. l , J,Ll rRAVAl 



300INR 



•i • RNO (ll • 

voir ' in 

I IIM R CM I'llAI.I I ,1 - 



KIN 



RIM 



Su/fo page 14 



SURVIE 



suite du 
listing du 
N23 



, ■ [Ul »M« 




tJ\P-F tt 



20030 KPLOT *4 130 ro 4<9.l!6 HPLOT 24 

in ro z*.m hplot 30.165 ro 50-134 

KPLOT 19.16? TO 19.119 HPLOT *0-l70 
TO 30.110 TO 20130 
20064 FOR PP ■ 9 TO £9 KPLOT PP 132 

TO PP. 136 *E<T PP 
£9*74 PETURH 
£95*9 REM P-21 
20314 FOR PP - 4 TO 3 1*1* STEP 44 

HPLOT (67 3 + 6? 3 J COS :PP> .140 

- »-J 1 SIN 'PP) NEXT PP HPLOT 4.18 
9 TO £9. 192 HP(_OT 9. 194 TO 13,113 

HPLOT 9.140 Tfl *- 124 
£4315 MP L :r 9.144 TO 4.15? HPLOT 133.1 
49 TO 113-133 

29324 «Pl;t 35.; £8 ".; ** 129 TO 
TO 39.13d to TV; £9 HPLOT 15 1 '5 
TO 55. 1 '5 TO 33, 143 rO 75 115 
nj 75 : 75 hp.;- £0.124 M 108 [28 
TO 198 ,*3 TO .;.} i*5 to 69-124 
HPLOT 103,120 to .25 : £4 TO 125 17-) 
£9523 HPLOT '0 105.139 TO 193,120 
24534 HPLOT : 45 '.75 TO : £5 - : 1=, " 
45 TO 105.1*5 TO 145 175 hb l ;t 9,155 
TO 39-133 HP1.OT 43.133 TO 135 133 
HPLOT 34U134 TO i- .59 TO 43,150 

ro 30. ifi0 - : m. 154 hpl '.' :■". 

nt W :52 to *3- 155 TO 32 138 

TO 32.132 
£9349 MPLOT 79.159 TO 25 I 59 TO £5.1->; 
TO 59-166 tq 59.;^j to 45.159 HPLOT 39 

:~i -PLOT 45,166 TO *5.'.7£ 
29554 HPLOT 29-161 to 46,161 to ««.164 
TO 27.164 TO 23,161 fop PP * 30 

TO 43 STEP 7 HPLOT PP.163 HEXT PP 
MPLOT 55-139 TO 55.1-0 TO 74.L57 

TO 190-13? TO 120. 179 TO 129.159 

TO 103,100 TO 195 179 to 194-165 
24333 MPLOT TO 75.163 TO 70. 179 

TO 79- 159 TO 33. ISO 
29369 HPLOT 79,190 TO 73,173 TO 75,165 
HPLOT 193.190 TO 159.173 TO 199-165 

MPLOT 55.179 TO 79-174 HPLOT 73.179 
TO 199-179 HPLOT 195 1 '4 to 129 179 

HPLOT 69.176 Tfl 69.175 TO 65, '.75 

TO 65. 176 
29579 KPLOT 110 176 To 119.175 TO 113.1 
75 TO 115- 17.; HPLOT 65.167 TO 74,167 

HPLOT 69.163 TO 73.163 MPLOT 107 167 
-' 112 167 HPLOT (92 :67 to 187,163 

MPLOT 75-156 to 65,139 TO 45.162 

TO 75-162 ro '3.159 
U300 FOB pp * 75 to .;3 STEP 3 

HPLOT pp. 16* HEXT PP HPLOT 92.162 

TO 97-162 HPLOT 93/161 TO 96-161 

MPLOT 94.161 TO 94,159 HPlOT 95.161 
TO 93.159 HPLOT 93-136 TO 96.135 

MPLOT 94.157 TO 93.137 
£9394 FOP PP . 73 TO 93 HPLOT PP , 1 75 

TO pp. HI HE T pp HPLOT 76,102 

TO 76. 16* Tn 84.184 ro 94-182 

HPLOT -39 104 to 99-168 MPl.OT 77,186 
TO 83.196 HPLOT e;,i89 HPLOT 77.189 

RETURN 
21999 P£H p.££ 
21919 GOSUB 59991 GOSUB 39994 

HPLOT 39.167 TO 59.167 TO 99.177 

TO 69-177 TO 39-197 HPLOT 99.177 

TO 99-167 TO 69-167 TO 69.177 

MPLOT 71.169 TO 71.171 TO 79.171 

TO 78-169 
21829 HPLOT 65.177 TO 63.197 HPL;r 73. 
177 TO 75-187 MPLOT 63.189 TO 75-188 

KPLOT 63.155 To 75.183 
21938 RETURN 
21399 PEH P-23 
21519 HPLOT 9-198 ro 69.138 TO 80.139 

TO 133.198 MPLOT 9.199 TO 69.149 

TO 69-139 HPLOT 135-199 TO 59 140 

TO 98-138 HPlOT 60.148 TO 89.140 

HPLOT 63.132 TO 73.132 TO 73.138 

TO 64. 138 
21313 HPLOT TO 63-138 TO 63 132 
£1329 HPLOT 65-132 TO 65.135 HPLOT •:? 
132 TO 67.135 HPLOT 69.132 TO 60. 1M 

KPLOT 71,132 TO 71.138 HPLOT 73.132 
TO 73. 135 

21338 HPLOT 69.119 TO 53.119 to 89,120 
TO 63.129 TO 68-119 KPLOT 65. 129 

TO 63. 170 HPLOT 89 . 1 29 TO 69 -1 '4 
21349 FOP PP • 125 TO 165 STEP 5 

HPLOT 65. PP TO 80. PP HEXT PP 

PETIJPM 
22999 PEH P-24 
22818 GOSUE 58841 POP PP « 79 TO 100 

STEP 5 MPLOT PP. 139 TO PP.153 

NEXT PP FOP PP • 139 TO 133 STEP 3 
HPLOT 78. PP TO 199. PP NE/T PC HPlO* M 
.119 TO 97,119 TO 67,1*7 TO 38.147 

TO 58.118 
22020 MPLOT 58-116 TO 63-123 TO ". IZ 
TO 67,118 HPLOT 55-147 TO 63. 138 

TO 73.138 TO 87.1*7 HPLOT 75 , 1 35 

TO 73.123 
22823 HPLOT 63,123 TO 63,175 
22830 PETUPN 
22309 PEH P-£5 
22318 G06'JB 59991 GOSUB 54943 

GOSUB 5899* GOSUE 39893 MPLOT 74 16 
3 TO 93,165 TO 98.189 TO 63-158 TO 70.16 
3 TO 79,199 

22520 IF 0<S) - 23 THEH 39838 
22538 PETIJPM 
23488 PEH P-£6 
23819 GOSUB 54941 GOSUE 50407 

GOSUB 38892 GOSUE 5589* BET'JP.. 
23308 PEH P-27 
23318 GOSUB 38941 GOSUB 5484* 



rpinr -.;.h- if -j. 5 ■ - it THEH 

830 

£3524 RETURN 

£4994 PEH P-24 

2*419 COSUI 3444) IOSUI 30003 

COSUI 30006 C04UI S4444 l/TM 14 

HTftB 18 PKIHt •-:- "Tub i* HTAl J 
PRINT *H*E' EP 0(3) • 28 THE" COSUI 1 
434 

£4428 PETUPM 
£*?80 PEH P-29 
24319 COSUI 39091 

GOSUB 5899* GO0I 
23904 OEM P-30 

E5010 iOIUI S9001 GOSUB 34442 
L-.-yL-l HCOLOR ■ 4 HPLOT 194 164 

TO 30.100 HCOLOR « 3 MPLOT 33.107 
TO 33.159 TO 58.175 TO 49-173 TO J-. 1 170 
TO 38-163 TO 98.163 TO 98-178 to 83 1 _ 5 
TO 73 175 r^ 7.).!64 ro 78.187 
25434 HPLOT 40.170 TO 93.170 TO 83 '3 

HPLOT 35 179 TO 94. 163 
254*8 HPLOT 91.187 TO 91 169 T.} -: • . ;- 
TO 73.135 TO 45-159 TO 189 158 TO 184 19 

23439 HCOLOR ■ 2 HPLOT 73.133 

TO 33.174 HP. or 75.155 TO 98 163 
HPLOT 75.155 TO 40.179 HP_Or 7;, -.33 
TO 34. 155 KCOLOB • 3 RETURN 
25388 PEH p«31 

23319 COSUI 39941 GOSUI 5999* 
£5528 HPLOT 55-173 TO 60 ■ 1 74 TO 94,179 
TO 83-173 TO 35.173 HPLOT 69.173 

TO 60.177 HPLOT 88-173 TO 89,177 
25338 HPLOT 39,135 TO 79-135 TO "-. .- ."-! 
MPLOT 56-135 ro 56.169 HFLOT 71 135 
TO 71,168 HPLOT 36,142 TO 7'..l*£ 
HPLOT 64,135 TO 64.142 HPLOT 36,132 
TO 78,132 HPLOT 56.114 TO 71-15* 
255*8 HPLOT 57. 152 TO 57.15* HPLOT 66. 
132 TO 66.169 HPLOT 36.136 TO 71,136 
KPLOT 56.169 TO 55.157 TO 71,137 
HPLOT 66-158 To 78,138 HPLOT 71,1*6 
TO 78.146 HPLOT 71-141 TO 78-1*1 
£3359 HPlOT 54-147 TO 54-149 KPLOT tj 
147 TO 73.149 HPLOT 56-1*4 TO 69.144 
TO 69-152 HPLOT 38.14* TO 38.132 
HPLOT 66.1*4 TO 66.152 HPLOT 39.1*3 
TO 63,143 to 63,131 ro 59. 15; TO 59-1*3 

£3565 HPLOT 66.158 KPLOT 68 1 *-! 
HPLOT 68,1*6 FOR PP • 71 TO 75 
HPLOT PP, 135 TO PP.141 NEXT PF 
PETOSH 

£6494 PEH P»32 

26983 IF 0' ?'■ = 3£ THEH GOSUE ^.J-/:-. 1 

26818 GOSUB 58981 GOSUB 5994* 
HPLOT 83,135 TO 83.160 FOP PP 
- 135 TO 169 STEP 3 HPLOT 85. PP 
TO 199-PP HEXT PP HPLOT 87.155 
TO 97-169 KPLOT 99,153 TO 98-169 

26911 FOR PP ■ S3 TO 93 HPLOT PP.149 
TO PP.145 HEXT PP 

2691-5 HEXT PP 

26829 FOR PP ■ 199 TO 93 STEP - 1 
MPLOT PP.153 TO pp, 139 HEXT P° 
FOR PP ■ 9 TO 6 3 STEP 1 HPLOT .60 

* 6 * COS (PP)),163 - 3 % SIH (PP> 
HEXT PP MPLOT 45.163 TO 58.169 
TO 78,168 TO 75,163 TO 78,178 

26823 HPLOT TO 58-178 TO 45.165 

26838 HPLOT TO 43.169 TO 39.185 
TO 79-183 TO 75.189 TO 73.165 
HPLOT 59-155 TO 59.179' HPLOT 79.183 

TO 79. 179 HPLOT 55.183 TO 63,183 
TO 63-173 TO 63-173 TO 68.172 
TO 37.175 TO 33.173 TO 55.153 

26948 PETIJPM 

26399 REM P-33 

26318 GOS'JB 39981 GOS'JB 58992 
IF Of 12 > - 33 THEH FOR PP • 8 
TO 6 28 STEP 1' HPLOT (49 * 3 

* COS <.PP>>,140 - 9 » SIH (PP> 
HEXT PP HPLOT 36.139 TO 49.134 
HPLOT 35. 143 TO 41.139 

26329 HPLOT 38.178 TO 99,179 TO 90.177 

TO 38-177 TO 39.178 TO 33,168 TO 35-137 

TO 83,137 TO 83.160 TO 99.178 KPLOT 69, 

177 TO 69-168 HPLOT 88-177 TO 88.189 

26530 RETURN 

27999 REM P-34 

27918 GOSUB 59991 GOS'JB 59995 

HTmE 11 UTCB I* PPIMT -S- HTmE 19 
uTftE 13 PPItlT -E-«U- IF Od3) » 34 

THEN UTnB 22 MTftB 12 PPIMT "<t" 
27929 RETURN 
27398 REH P-33 

27319 IF 0(3> » 33 THEM GOSUB 59939 
27529 GOTO 24389 
25998 REM P-36 
28918 GOSUB 39991 GOSUB 38884 

FOR PP = 8 TO 6 28 STEP 1 HPlOT i i^i 
♦ 18 * COS <PP>),148 * 18 * SIH (PP) 
HEXT PP FOR PP • 148 TO 145 HPLOT 78- 
PP TO 99. PP NEXT PP HPLOT 74.1*9 

TO 72,127 TO 78,127 TO 88.148 
28815 HPLOT TO 87,127 TO 98.149 
28829 RETURN 
25394 REK P-37 
28318 GOSUB 59981 GOSUB 3889* 

HPLOT 48-178 TO 198.179 HPLOT 30,179 
TO 39.185 HPLOT 98,178 TO 98,195 

MPLOT 55-179 TO 55.189' HPlOT 63.179 
TO 93,188 HTftB 8 UTfiB 21 PRINT 'CHtH! 
E' 

25529 RETURN 
29999 PEH P-38 
29819 GOSUB 58891 GOS'JB 5989* 

MPLOT 32-138 TO 98.138 TO 98.155 

TO 52.158 TO 52.138 FOR PP - 8 

TO 6 2 STEP 1 HPLOT < 73 * 20 

* COS <PP>>,147 + 10 I SIN <PP> 
HEXT PP HPLOT 55.147 TO 93.147 
KPLOT 73.137 TO 73,157 

29928 UTftB 19 HTftE 11 PRINT "ft- 
29923 IF 0' 7 . ■ 38 THEN 29848 
£9939 HPLOT 38.174 TO 55.178 HPLOT *9 
171 TO 36171 HPLOT 48-172 TO 56-17: 

HPLOT 49.173 TO 36.173 MPlOT 39.174 
TO 33-174 KPLOT 36169 TO 69 1 69 

HPLOT 58.168 TO 69.168 HPLOT 56.173 
TO 60-173 HPLOT 38-176 TO 68.176 
£9848 PETUPN 
29399 REM P-39 
29318 GOSUB 59991 GOSUB 598-?5 

GOSUB 34897 RETURN 
74849 PEN P"49 
38819 FOP PP • £ TO 19 FOP 00 - 1* 

TO 23 HTtiE FF fJTOE 00 PRINT ' 

ME;<r 00 HeXT PP RETURN 
38388 PEH P-41 

39318 IF 0*3' ■ *l THEN 38838 
79328 GOSUE 54441 GOSUB 38493 

COSUB 34497 ;0SUf 14483 GOWI *■-'■'■ 
HT&E 11 "ThC 16 PRINT "-2" fO* ■ I 

■ 63 TO 74 FOR 00 • 89 TO 83 

HPLOT PP.138 TO PP,169' HPLOT 00,139 
TO 00.169 NEXT 00 NEXT PP ' RETURN 
71804 REM P-42 

31893 IF 0(3) " 42 THEN GOSUB 39450 
31819 GOSUB 34481 GOSUB 39892 



FOP PF • 63 TO 73 fop 
to 19 HPL If PP. 130 TO PI 

HPLOT M i '.} TO 00. 164 MI - 

K£Xf PP MTftj i[ vroi t6 P0IH1 

RETURN 

71399 PEH P-*3 

71114 C03UI 34491 HPLOT 23-180 
TO 55.163 '0 104-163 ro 113-159 
TO 23.159 HPLOT 69.199 TO 60.163 
TO 90-163 TO 99,189 HPLOT 69 . 1 74 
TO BO, 170 HPlOT 64-173 TO 59; 75 
RETUftH 

32098 REM P-44 

32810 HPLOT 9.199 TO 38.169 TO 30 104 

HPLOT 1T5-199 TO 188 164 to 140 140 
KPLOT 63,194 to 63-175 HPLOT 89 .-v 

TO 99-175 FOR PF s 103 TO 175 STEP 7 
HPLOT 65. PP TO ->} PF HEXT PF 
RETURN 

32348 PEH P-43 

32510 GOSUE 34441 FOR PF * B r.) 6 : 
STEP I MPLOT i 73 * 13 « 60S P : • 

173 « 6 * SIH i PP> NEXT FP FOR PP 

• 73 to 77 MPLor pp.100 to pp. tee 

NEXT PP GOSUE 50492 HT&8 4 
WTfiB 14 PPIHT -S*K* RETURN 

37989 REM P«*6 

33919 HPLOT 9,169 TO 199-169 M 104 10* 
HPLOT 199.169 TO 133.199 HPLOT 9.129 

TO 39.120 TO 39.169 UTQB 1* HTftE £ 

PRINT -E- UTftB 16 MT«B 6 PRINT "0' 
HT«B 13 PRIMT -0- VTftB 16 HT«E i 
INUERSE PRINT -a- HORHftL 

33828 HFLOT 53-112 TO 77.112 TO 77,137 

TO 33.137 TO 53-112 HPLOT 34,113 
TO 76.113 TO 76-136 TO 34,136 
TO 34-113 HPLOT 36.115 TO 74.113 
TO 74,134 TO 56,134 TO 36,113 
MCOLOR - 3 FOR PP » 37 ro 73 

33925 HPLOT PP.125 TO PP. 133 HEXT PP 

33839 HCOLOR - 3 HTfiB 19 '.'T&E 16 
INUERSE PRIMT -*■ HORHftL 
HPLOT 39.160 TO 50,140 TO 109-149 
HPLOT 38,159 TO 199-139 HPLOT 35 l* 1 
TO 69.143 HPLOT 69.148 TO 68.150 

33949 FOP PP • 69 TO 99 STEP 2 

HPLOT PP.150 TO PP + 1,130 HEXT PP 

HPLOT 70,139 TO 70.169' HPLOT 39,155 
TO 70,135 FOR PP - 32 TO 69 STEP I 

HPLOT PP.155 TO PP. 169 HEXT PP 

HPLOT 33,1*2 TO 53.143 HPLOT 53.1*7 

TO 33,148 

33039 HPLOT 33-15-3 TO 56.153 MPLOT 6* 

153 TO 65.153 HFLOT 110,190 TO 96 134 
TO 122.180 HPLOT 120.180 TO 128.190 
HPLOT 118.188 TO 110.190 FOP PP 

■ 188 TO 190 STEP 3 HPLOT 119. PP 
TO 124, PP HEXT PP 

33969 HPLOT 51-175 TO 51.173 TO 45.173 
TO 52.167 TO 52-167 TO 73 . 1 73 TO 71.173 
TO 71-173 KPLOT 71-173 TO 31-173 

UT6E 22 HTftB 2 PPIHT m f HTftE * 
UTftB 2-3 PRIMT -t- HTftB 19 UTM £* 
PRINT T. 
33979 FOR PP • 3 14 TO 4 7 STEP 07 
HPLOT (135 * 35 * COS (PP>>.100 

- 35 * SIN . PP 1 HPLOT (135 • 35 

* COS (PP)>.190 - 60 * SIN <PP> 
NEXT PP FOR PP ■ 3 1* TO 4 3 
STEP 07 

33973 HPLOT .133 * 73 1 COS CPP)>,I44 
- 50 * SIN (PP> NEXT PF POP FP 

■ 3.14 TO 4.1 STEP 07 HPLOT ■ 135 
■* 33 « COS <PC>i. 190 - 44 * 

SIM (PP) NEXT PP 
33*99 PETUPN 
33399 PEH P-47 
73510 GOS'JB 30901 GOSUE 59045 

RETURN 
3*008 PEH P-*S 

34883 HTftB 18 "TftE 13' PRIMT "S" 
34003 MCOLOR - 5 00 - 9 
34818 FOR PP - 188 TO 158 STEP 

- 1 00 " 00 * 6' HPLOT (00 * 23>.PP 
TO (113 - 00). PP NEXT PP MCOLOR 

- 3 HPLOT 0.150 TO 39.130 TO 53,134 
TO 133-189 

34820 HPLOT 59-139 TO 59.199 HPlOT 63, 

1-39 TO 53.100 FOR PP - 63 TO 70 
HPLOT PP.119 TO PP.120 HEXT PP 
HPLOT 63.120 TO 69.139 TO 68.110 
TO 75.110 TO 75.138 TO 79.129 

3*939 HPLOT 13.164 TO 1.3,113 TO 75.149 

TO 33.14* TO 13.1*4 HPLOT 9-115 

TO 15.113 HPLOT 120.164 TO 120,113 
TO 190.199 TO 199.1*5 TO 129. 1*3 
HPLOT 129-113 TO 135.115 

3*949 HPLOT 19-198 TO 59.1*5 TO 99-1*3 

TO 138-198 HFLOT 30,145 TO 58.134 

HPLOT 59.180 TO 39,199 HPLOT 98,143 

TO 99,138 HPLOT 99.189 TO 90,194 

MPLOT 23,198 TO 33,188 HPLOT 118.190 
TO 102.199 

34950 HPLOT 45-199 TO 45.189 HPLOT :?5 

190 TO 95.188 HPlOT 58.198 TO 58.18'? 
HPLOT 78.190 TO 78,188 HPLOT 55-163 

TO 38.189 HPLOT 78-163 TO 79-109 

HPLOT 37,190 TO 57.189 HPLOT 57,165 

TO 57.199- MPLOT 77,190 TO 77,189' 
MPLOT 77,163 TO 77,190 RETURN 

3*590 PEH P-49 

3*310 GOSUB 59041 GOSUE 30010 

GOSUB 30995 GOSUB 3990* HTftE 3 
UTftB 14 PRINT -S" HTftB 2 UTftB 13 
PRINT *E*U" RETURN 

33000 REH P-30 

35010 GOSUE 39891 GOSUE 58096 
GOSUB 30002 HTftB -3' UTftB 1* 
PRINT -S" UTftB 13 HTftB 2 PRINT "E- 

H- HPLOT 53.100 TO 53.199 HFLOT 36 ;9"> 
TO 36.198 HPLOT 53-108 TO 83.194 
MPLOT 56.199 TO 66,190 RETURN 

33348 PEH P-31 

33310 GOSUE 39491 5030 J 30642 

GOSUE 3488* GOSUE 34414 PETUPN 

36000 PEH P- 52 

36414 GOSUB 54001 GOSUE 58085 

GOSUB 59882 GOSUB 54919 mThE I 
UTftB 13 PRINT "S- MTftB 2 UTftB I* 

PRIMT "E«U- RETURN 

36398 REM P-33 

76519 GOS'JB 59991 GOSUE 5898* 
IF 0(13> • 33 THEM FOP PP - 8 
TO 6 IP, STEP 04 MPLOT .73 * 13 
I COS ' PP:< :■- 170 - 3 i SIM <PP) 
HPLOT '75 * 15 I COS CPP>J,18« 

- ! i SIN (FP) NEXT PP HPLOT 70 17 
TO 70-180 TO 89. 189 TO 90-178 Tfl 78 17 
4 

36315 HCOLOP ■ 6 FOR FP - 23 TO *i 
HPLOT PP.138 TO PP.165 HEXT ? r 

76328 HCOLOR - 3 FOR PP • 14 TO 34 
MPLOT PP.140 TO PP. 170 HEXT PP 
FOR PP • 30 TO «6 HPLOT PP, 164 
TO FP.I73 HEXT PP MCOLOR • 3 
FOP PP • 30 TO «0 HPLOT PF-145 
TO PP. V69 HEXT PP 

365*9 FOP PP • *7 ro 60 HPLOT PP. 163 
TO PP, 173 HEXT PP 

36339 RETURN 

77999 PEH P«3* 



I ■■• 

PRINT -?« MTftB 9 ITtWt 
r .--.... 
77540 PF* e,v* 
77519 SOI F •■»«£ 

MTftB 2 UTM £1 PRIMT ■»■ G0£,| 5*9 
8* MTft| 9 ur&I i* PRINT 

P£TijP.i 
35404 *EH P«56 
35 4I9 :;■ r 54»42 

GOS'JB 3404* 
HTftE 5 UT0I :* PMHf --.- HTM - 

UTftB 15 Ffin: -h.E- MTftl 6 

UTftJ 16 PRINT ■•:* pp- •-- 
75580 PEH P-37 
36319 GO? fl 34941 ". •" I 

HTftB 13 UTftB 18 PRINT ■-• : 
992 GOSUB 39004 MTat 9 UTAS 14 

PRINT *S«N- HTftl 2 UTftB £1 

PRINT *»- MTA1 16 UTftB 24 ?':>f '" 
- RETURN 
39099 REH P-38 
39010 GOSUB 50091 GOSUB 3099£ 

GOSUB 39804 RETURN 
39598 PEH P-39 
39319 GOSUB 39901 GOSUB 50845 

GOSUB 58803 RET'JPM 
49989 PEH P-64 
40914 GOSUE 54041 GOSUB 50907 

PETUPN 
*9599 PE" P-61 
*9519 GOSUB 59891 GOSUB 50906 

IF 0(16) - 61 THEM HPLOT 30.175 

TO 65.173 HPLOT 31.17* TO 64.174 

HPLOT 52.173 TO 63.173 HPLOT 51.172 
TO 64.172 HPLOT 31-171 TO 64.171 

HPLOT 54.169 TO 61,169 RETURN 
38998 PEH 

30981 HPLOT 9-148 TO 59-119 TO 190.119 
TO 135.199 KPLOT 9,198 TO 58 168 

TO 189.160 TO 133,190 HPlOT 34.110 

TO 38.160 MPLOT 109.110 TO 100 164 
RETURN 
50002 HPLOT 6,186 TO 6-133 TO 23,177 

TO 23.173' PETUP.H 
58083 KPLOT 31.171 TO 31.138 TO 43.139 
TO 43. 16* RETURN 

3999* MPLOT 144,164 TO 104.139 TO 113.1 
37 TO 113.173 PETUPN 

50805 MPLOT 53.164 TO 55. 130 TO 74 134 
TO 70. 160 FETUflH 

59986 HPLOT 59.169 TO 80,134 TO 93.130 
TO 93. 169 RETURN 

50007 HPLOT 63-164 TO 63.138 TO 63.179 
TO 83. 160. RETURN 
30010 FOR PP ■ TO 6 2 STEP 97 

MPLOT (99 * 19 t COS (PP>).193 

■•4 1 SIN (PP> NEXT PP POP PP 

- 89 TO 91 MPLOT PP-191 TO PP . 1 74 
HEXT PP RETURN 

30938 REH ROBOT 

38064 IF 0(3) - 25 THEM XX - 47'YT 

- 179 

59870 IF 0(5) - 27 OR 0(5:' . £>; 

OR 0*3) ■ 41 OR 0(3) - 42 THEN XX 

* 63 >YV - 173 

38934 IF 0<3) - 32 THEN XX - 98 VY 

- 173 

39990 IF Oi3> ■ 33 THEH XX - 13 YY 

* 179 

39188 HPLOT 3 ■* XX. 4 * YY TO 4 * XX. 4 

* YY KPLOT 12 ♦ XX, 4 * YY TO 13 

* XX, 4 * YY' HPLOT 3 * XX. 3 • TI 
MPLOT II + XX. 3 •> YY HPLOT 7 

* XX, 3 * YY TO 9 * XX, 3 * YY 
HPLOT 6 * XX, 6 -> YY TO 10 * XX. 6 

* YY> HPLOT 3 * XX. 7'* YY HPLOT 11 

* XX, 7 + YY 

38298 HPLOT 2 * XX. 8 * VY TO 3 * XX, 6 

* YY HPLOT 7- + XX, 8 + YY HPLOT 9 

* XX. 8 ♦ YY' HPLOT 11 • XX, 9 « W 
TO 14 * XX. 8 * YY . HPLOT 2 * XX. 9 

* YY HPLOT 5 * XX, 9 • YY- HPLOT 11 

* XX. 9 » YY ■ HPLOT 14 • XX , 9 * YY, 
39308 HPLOT 2 * XX, 10 ♦ YY TO 2 

* XX, 14 + YY TO 3 * XX. 14 » YY 
HPLOT 14 « XX, 10 ♦ YY TO 14 ♦ XX, H 

* YY TO 13 * XX. 14 + YY HPLOT 4 

* XX. 18 • YY TO 4 * XX. 13 ♦ YY 
TO 12 * XX, 13 * YY TO 12 * XX, 10 

* YY HPLOT 6 ■* XX. 11 • YY TO 18 
■• XX, 11 * YY 

38*88 HPLOT 6 * XX, I* * YY TO 18 

* XX, 14 « YY TO 12 * XX. 16 » YY 
TO 12 * XX. 18 ■• YY TO 11 * XX. 19 

* YY TO 16 * XX, 19 * YY TO 4 * XX. 17 
* YY TO 6 * XK.19 ♦ YY TO 3 * XX, 19 

* YY TO 4 ■. XX, 16 + YY TO 3 • XX, 16 

* YY TO 6 ■• XX, 14 * YY 
59399 RETURN 

69489 FOR I • 1 TO 3 

69010 IHUERSE IF IMT (1-2) 

- I ' 2 THEH HORHftL 
60920 HTftB I UTftB 1 
60938 PRINT SPC< 48)i 

60831 PRINT - PPP l ftft N H EEEE 

TTTTT EEEE 
68832 PRINT "PPL ft ft NN H E 

T E 

A H NN EEE 



688 33 


POINT 


' P P I 


T 


EEC 




68934 


PRINT 


■ PPP I 


T 


E 




68933 

T 


PRINT 

E 


' P 1 


68836 

T 


PRINT 
EEEE 


" P I 


680-37 


PRIMT 


SPC< 48 


60836 


PRINT 




68839 


PRINT 




69949 


PRINT 




60041 


PRINT 




60042 


PRIMT 




690*3 


PRINT 


(PCI *9 


60044 


PRINT 


sss 


I EEEEE 




60843 


PRIMT 


' s s 


I E 






60946 


PRINT 




I E 






609*7 


PRIMT 


sss 


I EEE 






60948 


PRIMT 





60049 PRIMT " S ( U U R R U V 

I E '/ 

64434 PRIMT - Ml ouu R R 

I EEEEE 

68031 PRINT SPC( 49)j 

69060 NEXT I 

64063 NORMAL NONE 

60070 RETURN 

63000 PEH FIN DU PROGRftHHE 

63481 PEH 444414444 144444 144 1144444 ■ 
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SCRABBLE 



Ce programme vous permet de jouer au SCRABBLE, se- 

Ion les regies classiques. 

II s'occupe de la distribution au hasard des lettres, des 

echanges, du placement des mots sur la grille, du de- 

compte des points Toutes les erreurs sont detectees. 

Seule la verification de la validite d'un mot est laissee a 

I'appreciation des joueurs. 

Les regies dujeusetrouvent dans le programme, ainsi que 

le mode d'emploi du programme. 

YA. BORRI 



6 REM 
: REM 

9 REN DEFINITIONS 

10 DEF FNflL'.V^-lMHTiRrlij- 1 1 >»VJ 
tl POKE 33280.6 

U DIM NJK4..,PO<ie'i>.GfiM5,15.».LE(4,7.>.LJU5J 

13 DIM PL:? ? .lV-.7> ,£L'.7j .T.7 >.\'H' i j . i,,_:-i, 

14 PRINT -.TWBM-I •^•4*kj*m JEU DU SCRABBLE •W«»w»r>' i 

15 Ffi INT -MtMM DEsiRt^-vuui LE REOLEMENT CO/H) ■ 
lo GET JI IF J*-'"' OOTO 16 

17 IF JI* ic wiO *:00 

18 IF J* O*0' GOTO lb 

MMVIM PTOSES ri ijut PROE 3UIVAHTE, TAPER Ufifc IO'JChE OUELCOHQUE 

20 get j« if j*="- goto 20 

ii F-ftlNT-XE PROGRFMPIE VOUS PERMET DE JOUER Hi" 

23 PRllKT"*SCRfiB**LE SELOH LES REGLE3 CLASiluUEs. 

^ PRIMT"«L S'OCCUPE DE LH DISTRIBUTION WJ HA3RR0", 

23 PRINT" tt€S LETTRE8,B£S Ei-HHNGEi.DO PLFtCEMEHT" 

26 PKIHT'MCS MOTS SUR LA GRILLE. WJ Dfc'.uHPTE DES" 

2? PRINT "POINTS." PR1MT"ML EST CONCU POUR INTERDIRE TOUTE ERREUR' 

28 F'RINT"«VCLONTRIRE OU FGRTUITE.PHft uONIRE.lL hE" 

23 PftlNT'-LONTRuLERfi PftS SI LE HOT PROPOSE EST" 

3* PRIMT-U^t DE VOS C*EAI IONS PERSGNNELLES OU UN" 

31 PRINT-B10T DU VOCflWJLfURfc RUMia DRNS LE JEU" 

32 PRINT-ICETTE VERIFICATION EST Fi LA CHXRGE DES" 

33 PRIHT-WOUEURS EN PRESENCE". 

34 GET J* IF Jt*'- GOTO 34 

35 PRINT TSUELtiUES RAPPEL3 DU REOlEMENT ■" 
26 ■--:■■ HtJJ! ... Ruit .-- rREMIER "j: DOIT POSER' 
3? PRIHT"UM£ LETIRE SUR LH ^Hsfc CEHTWLE L1GHE H" 
3S FRINT-JCOLONNE H" 

39 PRINT "JIENSUITE, TOUT «jT DOIT SE RFlCORDEft.EH' , 
48 PRINT-BTOUCHfiNT OU EH CROISflHT. sUR LES LETTRES'' 

41 PRINT"-*DEJA POSEES." 

42 PRINT"«LE JOUEUR GUI POSE UN JOKER EN DEFINIT" 

44 PRINT-«LE SENS. DES LOP'S, IL HE PGUPRn AVulR UUE" 

45 PftlHT'KETTE SIGNIFICATION" 

46 PRINT"<SI UN JOUEUR PLHCE S£S SfcPT LETTRES D'UN" 

47 PSIHT"COUP.IL RECOIT UN BONUS uc So POINTS" 

4 c '-■-■■ "jr. J'jffcR H'ftHiji'it M'Ji.Utl POINT", 

45 GET JI IP J*-"" uulu 43 

108 PRINT-.XE QUE VOUS flEVEZ SflVOJR POUR -JuUER ■" 

101 PRINI ILE PR.OORHMnE SE CHARGE DE VOUS DEMANDER" 

162 PRINT -moor CE QUI EST NECESSAIRE A 3ft MftRCHE" 

103 PRINT- Hi MOTE* TOUTERula- 

184 PRINT ifO-JR PASSER WIRE TOUR DE JEU.REPONDRE" 

183 --.'., fcp- h LH OUESTIQN • * 

1*6 PRIMT'ITVOUS CHflNOEB DE; LETTRES lO/H) ' " 

lo7 PRitff ifcT. TRES IMF-GRTiinT.iliJflND VOUS ENTRE2 LE" 

103 PRINT"*10T UUE VOUS POSEZ, IHDIQUEZ TOUTES LEB 

IH3> F-PIHT'-JtETTRES DE Gk N0T6.V COMRRIS CELLES DEJH" 

lia PRINT-StJR LH GRILLE. PHR CuHlRE.Sl VOUS JOUER" 

111 PRINT -AM JOKER, TFiPER "U'.LE PROORfWME rtWS " 

112 PRINT'ttEHftHDEPa EHSUITE BB SIGHIPICfiTIOH'i 

113 GET J* IF J*«~" GOTO 113 

115 PRIMT-.XI VOUS FftlTES UHE ERREUR EU EHTRAM7" 

116 PRItn-'AJHE I"JNMEE,LE PROORftntiE VOOS IHDIOUER8" 

117 RPINI'lfcH NHTURE.- 
189 jET JMF J»="" GOTO 183 

150 PRiHT".'»a«g«iaaMm.E:>lr.ri 1 .-/uu: : . REVOIR LE REOLEMENT 10/11 
152 GET J* IF Jf-"" ouiu 192 
U-4 IF J*='0" GOTO 22 
156 IF J*0"M" GOTO 152 
200 REM IHITIfiLISHIIUH DE LH PHRTIE 
2tf5 FOP I«l TO 4 T'l-p-e KE.:r I 

.-.:■: -r.i.l .J-'ii^N jt JuUti>S PGUP '.ETTE PfiPnt - 
211 FRfNT-'.DE 1 H 4, - ' , 
^12 uEI 0*: IF Gl="" GOTO 212 

213 OSSCtOfJ IF (K49 OR 0^t>«: 0010 212 

214 HJ=G-43 PRINT NJ 

215 FOR 1*1 TO NJ 

220 H=FHHL<HJ> IF KA/O0 OOTO 22B 
225 T'HJ = M(£/.I I 
230 PRIHT"OBJE VOUS DEf«KPER»I8 DEi HUMS DE MOIHS" 

235 PfclNf'DE OUIHZE GftfiRC TERES MER'.J ; ' 

240 FOR I»i TU NJ 

^45 C*='"' PRINT-IHOM D«J JOUEUR ".!• INPUT K* 

250 f J**"**" 

255 W»tT(IJX£FT«<K*.13J 

260 NEXT 1 

263 PRIMT a *D.k. C'EST PHRT1..,." 

2?« RESTORE 

280 FOR 1-1 iu 1W^ PtnD PO<I) NEXT 

*:■& Put I-I TO 26 REHD Vfli \i HEX! 

250 FOP 1«I 10 15 

255 FOR. J-l TO 15 

300 REHD W.\.l> 

S05 NEaI J 




ooflfc 



6A 



455 £*? IF LP<7 THEN 2-LP 

50y FPIIIT"l?VOUS CHFOtGEZ DEj LETTREj 
989 GET JI IF Jf""" GOTO 505 
50? IF J*="P" GOTO 1115 



001 



■ 67S 



310 NE/T I 



il5 


REM PREPHRftTlON 


DE LH GRILLE DE JEU 


320 


PRINT" 


1 HBO DEF 


jHl it L 






:,.-■ 


PRIHT' 










,:..; 


FOR I- 


1 TU 15 








ftffl 


J«*L*»Wt64+l;4 








i40 


FOR #■ 


1 TO 15 








145 


K*OR< 


,i> 








.,:■■: 


IF K- 


[HE* .'i- 


'J 1 


iu 073 


as 


if K»a 


THEN Vi= 


'ttffl" 


OOTC 


375 


■-:< 


If r-. 


lrtf( /f = 


'MiO" 


«n 


375 


363 


IF KM 


THEN VM 


■•«■ 


OOTC 


375 


378 


IF K* a 


THEN 7»« 


•met 






J73 


U»=U*- 


i NEXT J 








380 'J«-U»' 


1" PRINTU» 






3SS 


NEXl 
PRIH1 




















393 


PRINT 


Wi 








353 


LR-10. 










400 


FuF li 


=1 IU NJ 








405 


rc<ic 


-0 








410 


LE» = " 










415 


FOP I" 


1 TU 7 








4^ 


GOSUS 


3080 








425 


LECIC 


I/*LE LE* 


K£f*09M 


LE^ 


430 


HE/.T 










435 


PRINT 


TH6< t yy.i 


JJ*HJC 






440 


PRINT 


THKt20^.' 


SCORE 




SC'-IOJ 


445 


PRInl 


rfljj<20';' 


LEi rRES 


•.L£* 


450 


PRINT 










455 


NEXT IC 








460 


G'JiUfc 


50<:0 








462 


PP-l 










465 


PRINI 


THE'20?.' 


IL RE 


>rE" 


LP. "LETTRES" 


466 


PRINI 











467 FRIHT-LETTPE ItO »2 IK *j 
470 REM COUP DES JOUEURS 
475 FOR IC-1 TO NJ 
4/6 ER-0 

430 print ■■ it mti i muu w iiiuiaa /uu at 



Mul *^) »^ *ei •;«"- 



515 IF J«O"0" GOTO 505 

517 REM ECHRNGE DE LENnE-; 

520 GOSUfi 3113 

525 PRINT "XOMfilEH DE LETTRES 'DE 1 n\l,-> r, 

538 'jET it IF J» 3 "" GiJTO 530 

533 Ht"ftSC<J*J-48:lF NL<1 Ok t»L^Z GOTO 530 

545 FOR i=l TO 7 PLCl>-0 [DCI>"8 EL<1>>8'(CKT 1 

550 W» LETTRE" IF HL>1 THEN G*=ut»"i" 

535 PRlNTOtJ" H CHHNGEfl 

560 FOR 1*1 TO ML 

565 GET JS IF J*-"" GOTO 565 

570 J-HSC'.J*> IF JC64 OR J>50 GOTO 563 

575 ID-0 

530 FOR K-l TO 7 

525 IF LE<JC<K>*J HND IDtKJ-0 THEN PUKj-J ID<K>»1 ID*1 I 

550 NEaT K 

535 IF 1D«0 OOTO 565 

608 PRINT Jt," ", 

605 »«XT I 

610 FOR 1*1 TO 7 

615 IF UU;«1 THEN 90SUB 5000 -LEflC I /-LE EL( D-PO 

620 NEXT I 

625 FOR I»I TO 7 

630 IF IDCI^-1 THEN PO(EL( I >J=PL' i I 

635 NEXT I 

640 PRINT"* 1 . 

645 FOR J=l TO IC :PRIHT"J«OM" , ■ NEXT J 

650 PRINT "T)".TrtBt30); 

635 FOR J*l TO 7 PRINTOMR»(LE(IC. 1/ 

660 FRiHi-'tgmiMA*ui*mfsmtjL - 

6^5 OOTO 1115 

670 REM MISE EN PLHCE D'UN MOT 

675 ER-0 PRINT".'T10T HuRIZuHTmhH^ OU VERT1CRL(V; ?" 

600 GET 3* IF S*="" GOTO 680 

685 IF B*0"H" HND S»0"V" GOTO 680 

635 SI=1 IF SI-"V" THEN SI-2 

7«e GOSUB 5115 PRINT-.XFISE IHITIflLE LIGNE ", 

785 GOSUB 5038 

710 LD-D-64 LDI-D* 

715 PRINT- C0LONNE-". OOSUB 5050 

728 C-D-D-64 CD1-D* PRINT 

723 C-CD L-LD SE— SI GQSUts 5075 

738 IF F-0 THEN IF GRtL.C^7 THEN ER-1-OOTO B90 

731 IF PP-2 OOTO 735 

732 IF SIM HND LD06 I HEN ER-2 GOTO 890 

733 IF SI-2 FIND C0O3 THEN ER-2 GOTO 850 
733 QOSUB 5115 PRINT-JVOTRE MOT ".INPUT Mi 

736 LO-LENCMi; IF LOM HUD PP»2 THEN ER«3 GOTO 890 

737 IF PP*2 OOTO 744 

733 IF SI-2 THEN IF LD>6 OR LO+LO-K0 THEN ER-2 GulU Sao 
735 IF SIM THEN IF uD^e uR CD+LU-K3 THEN ER-2 GOTO 990 

744 SE-3I 

745 FOR 1-1 TO LUM GUSUB 3875 NEXT I 
747 IF F-l OOTO 730 

749 IF UR(L,L^>7 THEN ER-1 '>J(u 050 

750 L'LD L'CD 

751 FOR 1M TO LO-1 0OSU8 5875 NEXT I 
75* IF h-I THEN ER-4-&QTQ 890 

755 PRINT"T.IGNE ".LDi." COLOttNt ".LDi." SENS ",S» 
/60 PRIHT "HOT JOUE '';Mt," CORRECT (O/NJ" * 
765 GET Ji IP Ji-"" GOTO 765 
770 IF J*0"N" RNO JfO"0' OOTO ^5 
775 GuSUB 5115 PRUir:]". GOSUB 5115 
,38 IF JI="N' OOTO 6/5 
<'A Ptn mil i DE CONTROLS 

783 JD-0 L-LD C-CD I JM Jl*8 J2*« it->I LU-8 
755 FOR I-l 10 7 TUv-0 NEXT I 
808 FOR I-l TO LO 
303 LJ<l/=8 &-ft8UMD*<n*sl<l>) 
816 IF 0R'.L,C/<7 THEN LU-LUM GOT'J »15 
812 IF 8O0RCL>CJ iHtN ID-1ER-5 I-LO OOTO «80 
814 GOTO 388 

013 If 6<64 OR jy?y i "tN ID-1 ER-6 I=LO OOTO 080 
315 IR-l LJtn-1 
820 FOR K-l TO 7 

625 IF LE'.IC.IO-S «ID T<K>"0 THEN rtK)fl IR-0-K-7 
030 HEX1 K 

335 IF IR-l THEH I*LO ID-I ER-7 OOTO n-M 
340 IF S064 GOTO 800 

845 Hi-'SELUND" IF I J-l THEN HI-"PREMltR" IJ-2 
850 PRlNfLt ".Ml," JO'-ER EbT MIS POUR t " 
635 GET Ji IF Ji-"" GOIO 833 
',:■■> :-.(,'.' J»/ IF J '.63 OR J>38 OOTO 855 
665 GOSUB 5115 
870 IF 1 1-8 THEN Jl-J 
875 J2-J 

s^8 GUSUB 5075 NEAT I 
833 HT-0 

86G IF LU-LU HND PP-t iHtN UUSUB 5165 
007 If Ml "I IHEN 1DM ER-8 
■■i-i'-i n 1D-8 uulu 505 

8^u i — r i 

551 PRINI" IKREUR DC DUNHLE 

hj^ IF I I-TC100 GUTO 852 

B98 OH PR OOSOi 3301,5302,5303,5304,5309,3306,3307,5308 

857 IF TI-I '.330 GOTO 837 

5W0 OOSUS 3113 GOTu oo 



■ ■ 
■ ■ 

'i0i r si-i • . 

; . . . . I . . 

315 "'-1 FC=8 MOM IF /XJQ ijOIu 1885 
., '/=! GOTO 533 
. L-LC 
929 PL-PL*Vn<0R<L,C/-64J wuvj» 5*^5 
950 LC-L LL'C OOTO *15 
935 S=Fr5C'.11DI>.Mi.y.Uy OOS 
?40 ;E»H W4J 
345 008UB 5075 KR-Kft*l 
358 IF F-l GOTU ^8 

955 IF GRa.C/>7 THEN PC-FC*Vfi(.GR'L.C'-64y WHj 543 
968 S£--ft L-LC C-CC 
365 OOSUS 5075 KR-KRM 
970 IF F-l GOTO 538 

575 IF 0R<L,C//7 IhEn PC-FC*VR<GR (L.Cj-64^ OOTO 965 
988 IF KR52 FHEH Su( IC/-6C' IC>*PC-MC 
385 IF S064 GOTO 955, 
958 S-J2 IF W-l THEN 9-31-IH 

555 POKE 1863*(48tLC)»CC-S-64 POKE 55337«<48-t.C>»CC, 14 
557 GR'.LC.LCJ=S 

1680 L=LC C-CC SE-SI GOSUB 5875 CCK, LCK. wTO ?13 
1005 SC<lC>*SC(IC)'«-<p|j-fT» 
1010 IF LU=7 THEH SCUC>-SC(ICj»5e 
1015 P=LP 
1020 FOR I-l TO 7 
1625 IF TCU-8 GOTO 1045 
1038 IF LE'.IC.I^-3* THEN 1-7 GOTO 1045 
1035 IF P-0 THEN L£(1C. I J-32 UOTO 1045 
1040 P=P-l GOSUB 5808 LEUC.I.I-LE 
1045 HEXT I 
1B30 GOSUB 5025 
1053 fl=l 

1060 FUR B-l TO 7 

1063 IF LEUC.BJ032 THEN LEUC.hj-lEUC.BJ R*ft*l 
1070 NEXT B 
1871 IF fl-8 GOTO 1875 
1072 FOR B-R TO 7 lEUl.Bj-32'NEXT B 
1075 H=0 IF ft-1 THEH H-l IVMC 
1038 PRINT-IT, 

1035 FiJR 1 = 1 TO IC PRIHT"JBiar. NEXT I 
1050 PRINT-TTT 1 .TflK<.25>,sjCt(C^ 
1095 Ri-*"' 

1100 FOR I-l TO 7 Ki-Ki»CHR»tUUu,l/^ NEXT 1 
1105 PRIHT TREt38/,Ki 
1107 IF H-l THEH IC«NJ 

1110 PRINT"**, 

1111 FOR 0-1 TO NJ PRINT-JO-Wr. NEXT 

1112 U$- LETTRE Wf- IF LPO THEN Hi-' • 

1113 PRINT ThBC20)."Il REsTE " ,3ih»(J > . .Oi*wi," -. 

1 llj KCM II 

1 L20 if H"8 I men OOTO -",'5 
, ;,.-. REM f IH K tt^- at 

11J5 PRli.i'LE JULiEun '.ii-IUVj." ".NJitlV)," fl GftGtt ' 

1140 F-RIHT"JI"i*:HVO rUUf. LUl 111" 

1145 PRIHi"*-. 

1150 FOP I«l TO NJ 

1155 FOR J-l TO 7 

llt>8 iF L£Cl,Jj-32 IHEN J-7 GOTO 1170 

1165 V-VFl'.LEll. Jy-o4, 3C( IVJ»8Ct 1VJ+V SCiI >-SC<I >-V 

11.0 NEXT J 

1175 NEXT I 

1130 FUR 1-1 TO I, 

1183 PRINI ff»B<20>;* 

1158 HEXT I 

1193 PKiNr««".THB^l>,*RESULTHT " 

1200 FOR I-l TO NJ 

1202 PRIHT 

1205 PRINI iH3-.*»j.NJill> PRIHI TRB<.20>, 'SCORE -".SC(I> 

128* HEX1 1 

i^if prini' aiuiiicii ii ia»uiMii»iitinw*i^ 

1215 PRINT'UHE RUTF.E PHRTlc vO/hj ' 

L220 uET Vi IF VI-"" OOTO 1220 

1225 IF YI-"0" GOTO 2W 

1230 IF VtO'N" GOTO 1220 

1235 PRINT-.TFtu REVOIR ! ! ' ' -ttKUiWiWWW* ' 

4555 ST UP 

5008 REM RECHERCHE D UHE LtHKfc DANS LE PUI 

5005 PO»FHHLtLP> IP PU(.P0>-32 OOTO 5003 

5010 LE-PO(P0> P0<P0/*32 

5015 RETURN 

5020 REM SIMPLIFICATION DU POT 

5025 fl'l 

5038 FOR B*l TO LP 

5039 IF FUvBj'.>32 THEH PO^Rj-POiB) -H«rt*l 

5040 NEXT B 
3045 LP-R-1 RETURN 
5098 --tn tiilhfcE DmiE COORDONNEE 
5855 GET D* IF Dl-"" OuIU 5055 

"■ D<63 OR D.-73 GOTO 3099 
t, 
5070 RETURN 
-j'M-j PtM CASE SUIVRNTE 
5030 IF SE-I THEN C=L-*1 UUIU 51UW 
5083 IF !E»2 THEN L"LM COTO 5100 
3890 IF SE— 1 THEN C-'.-lwUlu 3108 
3035 IF SE— 2 THEN L-L-l 

3180 F-0 IF L<1 OR L>15 OR C<-1 OR C715 THEN F-l 
3195 RETURN 

5110 REM EFFftCEMENT D'UNE LIGNE 
3113 PRINTS 

3120 REM TRRITEHENT DU CODE DE LH CF*SE 
3123 Gfl-Vfl(S-64)-PL-PL*GRPL-PC*GH 
3130 IF GR<L,C>-2 THEN PL-PL*GR PC-PC+Ofl RETURM 
3133 IP GR-LL,C)-3 THEN PL-PL ♦GR»GR PC -PC*GR-GH Rt (UKN 
5148 IF ORCL.O-4 THEN FM-FH42 MC-2RETURN 
3143 IF 0R(L.C)-3 THEM FM-FM43 MC-3 
515B RETURN 

5160 REM VERIFICATION DE BON PLACEMENT DU Mul 
5165 CH-CD.LH-LB-HTM 
5170 ft-1 IF SIM THEN fl-2 
3173 FOR H-l TO LO 
5180 SE"H C-CH L-LW GOSUB 3875 

3135 IF F-8 THEN IF GR<L,Cj>7 THEN HT-0 H-LU GOTO 3203 
5158 L-LW C-CWSE— A GOSUB 3873 

3193 IF F-8 THEN IF 0R<L'C)>7 THEN HT-0 H-LO GOTO 3203 
32B0 C-CHL-LH SE-SI GUSUB 5875 LU-L CW-L 
3205 HEXT H 
5210 SE-SI RETURN 

3300 REM RFFICHHGE WJ IVPE DE L" ERREUR 

3301 PRIHTXE MOT IHTRODUIT ESI INCuMFLET 

5302 PRINT-TVOUS DEVE2 MET IRE WC LETTRE EH H.H ' 

5303 PRIHT-PAS DE MOT DE 1 LETTRE RPRtS LE 1 lOUt 
5384 PRINT 'TKOTRE MOT H'ENfRE PhS DRNS LH GRILLE ■ 
5j05 PRINT"'»*ESPECTE2 LES LETTRES DEJA PLACEES 

3306 PRIHT-rbEULEs LES 26 LETTRES ET a SONT ADMIS" 

3307 PRiNI"-UTILlSE2 UHIbUEMENT VOS LETTRES 
5388 PRIHT'"PRS DE MOI I90U DE C6UX DEJA JOUES 
7339 REM LETTRES DHHS LE POT INITIAL 
8000 DATA 65. 65. 65. 63. 63. 63. 65, 63. 63. 66. 66. 6?, 67, 68, 68. 68. 69, 
69. 69. 69 • 69. 69 

3003 DATA 63.69,69,63.69,69.69.69,69.70,70.71,71,72,72.73,73, 

8010 DATA 73, 74, 73, 76, 76. 76. 7o,7t>, 77. 77, 77, 78, 78. 78. 78. 70, 79, 

79,79,79.79.79 

8015 DATA 80,80.81,62,82,82.02.82.32,83.83.83,83.83.83.84,84. 

B4 , 84 . 84 , 84 . 33 

80*0 DH1A 33.03.05,03.83,86,86,87,88,89.90.78.64.64 

8024 REM VALEUR DES LETTRES 

8025 DATft 1.3.3,2,1,'' 



■iRETUHH 



,1,3. 18,1,^.1.1.3 



' RETURN 
' RETURN 
r RETURN 

RETURN 
■ RETURH 
'RETURN 
' REIURN 
'RETURN 



,1,1,4.10,10, 



1«. .- 

6823 REM ouDt DES CASES DU TABLEAU 

J030 DHIH 3,1.1.2.1,1,1.3.1,1,1.2.1.1.3 

0831 DATA 1,4, 1,1,1.3.1. I. I- 3. 1'1<1-4.1 

<MM DHTH 1,1,4,1,1.1.2.1.2.1.1.1-4,1.1 

y033 DATA 2,1,1,4,1,1,1.2.1.1.1.4,1,1,2 

I30J4 DHIH 1.1.1. 1.4,1.1,1. 1-1. 

8033 DAIH 1,3.1,1.1.3.1-1.1.3. 

t»«Jt> DHTH 1. 1,2.1. 1.1,2.1.2,1. 

6837 DHTH 5.1,1,2.1.1.1-4.1, 1. 

303a DATA 1,1,2,1.1.1.2.1.2.1. 

8839 DATR 1.3.1.1.1.3.1.1 

6048 DHTH 1,1,1,1,4,1,1, 1 

8041 DATA 2.1.1,4.1,1.1,2 

U04* DHTH 1.1,4,1,1.1.2.1.2.1.1.1-4,1,1 

8845 DrtlH 1,4,1,1.1,3.1.1.1.3,1.1.1.4,1 

8044 DATA 3,1,1,2,1,1,1.3,1,1.1.2.1.1.3 



.1.3.1 
1.1.1,2.1,1 
1.1,2,1,1.3 
1.1.1,2,1.1 
3,1.1.1.3,1 
1.4,1.1.1.1 
1.1.* 



ZARBEK 



Ne vous laissez pas faire par les horribles ZOUKS ! votre 
ZARBEK toujours en mouvement devra eviter les mines et 
les pierres, et marquer le plus de points possible. 



Una presentation Inom du pro- 
gramme, nom de I'auieur) appa- 
rati sur 1'ecran au bout dun cer- 
tain temps M sufttt de pressor une 
toiiche du clavier (ou le bouton de 
tir de la manette 1) pour passer 
aux explications dujeu Tant que 
Ion a pas presse une touche. une 
musique tourne indefimment 
N 8 II taut laisser son doigt une 
ou deux secondes sur la touche 
Les regies du jeu apparaissent 
alors sur quatre ecrans successes 
en appuyant sur le bouton de tlr 
(toujours de la manette I) 



Bernard FEUILLEN 

Apres ces regies du jeu. un ta- 
bleau de jeu se formera avec 

- Les score du joueur en haut a 
gauche 

- le nombre de vie et le niveau du 
jeu apparaissent en dessous du 
score du joueur. 

- Le score maximum en haut a 
droite et le nom de joueur ayant 
tait ce score, se trouve juste des- 
sous 

N B Au debut, le score maxi- 
mum est de 5000 points. 

La ligne du bas sort pour le 
defilement de commentaires 



II re>te done 21 lignes de 32 colon- 
nea pour le |eu proorement dit 

- Jaune : + 5 points 

- bleu, magenta et noir +50, 
+ 40. +30 points 

- Un carre et sas diagonales en 
noil +10 a 500 points - BONUS 
permet de passer au tableau 
suivant 

- des mines invisibles (en jaune) 
perte dune vie 

- votre ZARBEK ne rouge 
-vos ennemis les KOURZ, en 
noir 

- vert : plerre inaccessible 

N.B 30 points Si Ton va contre 
une pierre On dolt attendre une 
ditaine de secondes avant de voir 
le tableau Vous etes represents 
par un C dont louverture est dm- 
gee dans la direction ou vous 
allez 

Pour sedep1acer.il est dabordne- 
cessaiie d'appuyer sur le bouton 
detir. Sil'onappuieunedeuxieme 
lois sur ce bouton, I'onverra appa- 
raitre les mines pendant quelques 
instants. 

N.B. : II est possible devoir les mi- 
nes une seule fois par tableau. 



En chaque debut de tableau ou 
apres la perle dun vie. I 8*1 rva- 
cessaire de pressor le bouton de 

lir avanl de se deplacer 
Les directions possibles sont en 
haut, en bas. a droite et a gauche 
Le depiacement s'effectue avec 
la manette 1 

II n'est pas possible de faire le tour 
de lecran 

Vous pouvez vous deplacer sur le 
jaune (terrain predominant) sur 
les dessins en noir, en bleu et en 
magenla et sur la case contenant 
le sigle E3 qui permet de passer au 
niveau superieur et ou il vous est 
accorde un bonus variant entre 10 
et 500 points. 

On ne peut alter sur les pierres 
vertes (mais -30 points si on 
persisted 

Vous perdez une vie si vous vous 
rendez sur une case contenant 
une mine invisible. 
Pour corser )a difficulty 5 KOURZ 
se deplacent aleatoirement mais 
tous avec la meme vitesse el la 
meme direction. Si Tun de ces 
monstres vous touche. vous per- 
dez une vie 



NB llsepeutquevoustouchiez 
un KOURZ et que vous ne perdiez 
pas de vie . I ordmateur ne fatsait 
pas de test de coincidence au 
moment oil vous touchiez un 
monstie 

La direction et la vites?e des 
KOURZ changent a chaque nou- 
veau tableau et apres chaque 
perie dune vie 

Pour couronner le lout, vous per- 
dez des points chaque fo<s que 
vous restez au meme endroit 
N B -5 points lors du test de la 
commande 1 
Au debut : Niveau A 
Vie - 3 (2 en reserve et 1sur le ta- 
bleau de jeu) 
Score du joueur — 

Nombre de mines — 3 
Vous gagnez une vie tous les 5000 
points. 

Le niveau passe a la lettre suivan- 
te a chaque nouveau tableau. 
A chaque nouveau tableau il y a 
2 mines supplementaires 
Plus vous allez loin dans les 
tableaux, plus les points aug- 
mentent, 
Explications des lignes du pro- 



pfSmnM 

- 180 a 540- regies r»u feu 

- 55* a 74© - pf esentatoo 

- 75«a 840- definitions des c*- 
racteres pour le jeu 

- 850 a 1 1SO - impfess»on d"un 
tableau dej-u 

- 1160 a 1210 - direction du 
depiacement 

- 1220 a 1250- test pour vertfier 
si on ne son pas de I'eeran 

- 1260a 1330-deptecementel 
afnehage oXj score 

- 1340 a 1410 - test de comct- 
deoce entre le ZARBEK et les 
KOURZ 

- 1350,1 Mtt-afl eti iMdusco 
re et correction do depiacement 

- 1420 a 1450 - aWchaoe des 
mines 

- 1460 a 1560 - rnort (Tun 
ZARBEK 

- 1570a 1690- fin dureuetaffi- 
chage du score 

- t700a 1780 -bonus 

- 1 700 a 1 820 — perte d"une vie 

- 1830 A 1980 - presentation 
pour le niveau suivant 

- 1990a21lO-deftnitK>ndesca- 
racteres pour la presentation 



Tl 99/ *A 



. CLEAR i 



13* COL- SCREEN* 16: 

i " .-.. CO-OS' 1.3. I >! I MEXT : 

19* D!£°-ay at.-.. 9'E#ase alli-7. a R B E k- i 
ie* call mc«a«.*. 2.9£> : i display at<4.2)>*— : 
lit CAU fCMAB (.2.121111 DISH. AT arts. 21 I'- 
ll* ;a.t hchm<Bi3. mm display rtcmii-- 
..-. :. nri:: rjispi.ftv at.io.2h 
2i« CALL HCHAR ■ 12. 2. 11 31 » I DISPLAY ftI(i:.2H 
15* CALL «crt»9. i4. ;■. i84>i! display ATU4.2H' 
28* C*Ll - ii DISPLAY QT!16-2)i 

r?t D:E a .Mi nr<i9>S)i'Au depart --> 3 vies- 



G05UB ! 



FOR I- 



TO 8 



POIN 



DISPLAY AT (2p 3) ■ ' ■■ ■ ■ ■—■' 

C'EST VDUS" 
38 POINTS" 
■ SB POINTS' 
—I 48 POINTS" 
— ) 40 POINTS" 
— ) 38 POINTS' 

--) se points- 

i DISPLAY AT(21.2)i-* I VIE ChOCjE 



1138 FOR t-I TO 20 i: Hi 

1148 CALL SOUND'58. 1 888. 
use goto me 

11EB COLL JOYST! 1. V.U1M 
I 1TB IP V-4 THEN 7.-96 H 
11EB IF V— 4 THEN Z-9S I 
THEN 7.-99 I 



CH-4 



POUR CONTINUER" 
I 298 

DISPLAY AT(2.9) i 



CHBOUE CHANGErENT DE NIVE 
IB POINTS Si VOU 



IB* DISPLAY AT, -. 4 , n J-PRESSE2 ■ FEU 

23* CALL KEY<I.A.BHl IF ROie THE 

:*• DISPLAY aT.;.9>ERASE ALLi'I A 

III 0!SP t A> QT<4.1>!-» --) KOUOIiSI UH DES 3" 

T^e s:sp.cy hT<s<i>i*kourz vous -ouche- 

S3V bis o lay otis. i>s -veus perde: jne vie •■■- 

Jfti DISPLAY AT<ll.l)>*k --> POHTE J ELLE PERnET DE' 

T5e ?:S B LfiY AT. :Z. I 'I-PASSER AU NIVEAU SUIVANT. - 

J6» DISPLAY RT(13.t>t** BONUS DE 18 5Bfl POINTS A 1 

AU.' 

JTf DISPlBy AT(2a,l>9CHRf I28»l"-1 PIERRE [nFRANCHISSOSLE, 

S LA TOUDC." 11 CBLL «Mfl«<22.3t.9e> 

TEA DISPLAY AT(2*. t>l a PftE8SEI "FEU - POUR cdntinuer- 

;9i call KE¥<1.a.b>h if mne t-cv ;98 

4M DISPLBY 0T< :. 9IERASE All: - ! A R P E f." !: DISPLAY AT v2, 9) 1 -.-.- — — -" 

41* DISPLAY AT(4..:i:-A CKO0LE- NIVEAU- IL Y A DES": :-MIN£S INVISIBLES.' 

42* DISPLAY AT(8>1)I*IL VOL'S EST =EP1I5 DE LES": i"L0C0LI5ER UN F0I5 PAR NIVEOU" 

131 :>IS 3 >SY AT 1 •;. ; p : ~£\ QPPUYaNT UNE DEUflEME-l ■ "FOIS SUR LE BOUTON DE TIR. - 

441 DISPLAY 3T< 16. i;i-HAI5 BTTENTION ■!'• 

45* DISPLAY AT<18.l)t*VOU6 PERDEZ DES POINTS OUAND"! : M vCU5 HESTEr SUR PLACE ■■ 

4E8 DIS^LA- AT(2*. 1) : "PRESSES * FEU' POUR CONTINUER" 

»7a CALL «EY< : . A. B>:: IF AOIG THEN 478 

46* DISPLAY ATiS.4iERBSE ALL 1 'UTILISEZ L« 1BNETTE I" 

49* DI5PLAY ft". T.E1S-PCUR VOUS DEPLACER" 

Saa DISPLAY ATUi. Ds-PRESSEZ 'FEU 1 POUR COMBENCER" :•■ DISPLAY AT ( 1 4. 41 : -CHACUE 

MOUVEAU NIVEAU. * 

31* SO-* 11 DISPLAY ATi;-4. l)i*PHESSei 'FEU" PCJR JOUER !!!" 

32* CALL KKV<l.A.B»ll IF AOIB THEN 318 

C.ECR 11 COLL 9tR£EW3)li RANDOHIZE ■: nA*SC-3eea :: nO*5C*--TI-99/4A- 
348 FDR 1=3 70 E := CALL C0L0R< 1 . 1 &. 11 = ' ?*E<T I M GOTO 328 
35a GCSUB 199* :i CALL CHBRC : IE. ■ 1F3F7FE3EBFFFFFFFFFFFFFFFF7FIF IFF8FCFEFFFFD333B 

?;;.-.--j;.t" = F_r-< : ;- 1 

56* DISPLAY ATi ::.6iSIZE' IE1 i'PRESSEZ UNE T0UC«E - 

37* CALL C-^R' 3S. -787777e7EeEEEEBE-.43. '-^eTTT/BrEBEEEEaE-) ■ 

SB* FDR 1*3 TQ 21 STEP T : - CALL HCH0RI4. 1-1, 3S) » I CALL HCHAPf ;4. I- ! . "3' s : CALL 

MCH0R14. I. 43' : t CALL hCmARi 14. I . 43 > : : \E " _ 

39* FOR I«4 TD 22 STEP 2 II CALL HChBKlI.3. 45) I • CALL HCMARI I . 27. 45 • ' ■ CALL HCHA 

n< I- 1.3.331 : : CULL HCHAR( I»l . 27. 33 " ■- 1E»T I 

SB* CALL HCHARI24.4,32) II CALL MCMA«(4.4. M) 1 1 CALL SPRI TE' »1 . 1 IE. 7. 3. 

61* RESTORE 7*8 

6^* CALL COLOR' 12. 14. t. :;. 14. ;. 14. 14. 1,3.5. 1.6.3. 1.7.3. l.S-5. 1.3.5. 1.4.3 

6 _ 8 COLL COLOHta. IMT(aMD*151*2i D" CALL COLOR* 1 . INI 'RND* 1 3» *2. I ) 

£4* COLL KEY(1.K.S)II CALL KCVCS.Kl. 81 tl I IF SOB OR SI <>« THEN 738 

638 REAP TP.FO !i ON FR 0OT0 678.688.698.668 

S64 RESTORE 7*8 :: GOTO 648 

t>8 CALL SOUND '_158. rP.5.TP«a.B.TP*3.T)ll CAtL SOUMD' L3R. L63. 3. L96, 5. 16T. : 



12*8 1-97 

121B GOTO use 

1229 IF <<-8 THEN X'X*B 

1238 IF »>-236 THEN t"t- 

1240 IF Y(-I6 THEN Y-Y»8 

1258 IF Y>.[ 84 THEA Y-Y-l 

1268 CALL GCHARKY»7>/B. (I- 
ON CH GOTO 1358.1368.1378. 

1278 CALL SOUND<1.580. 101 

1280 IF M-137 THEN 146* 

1298 IF N-1B7 THEN 1788 

13*0 IF N-1S6 THEN SC-SC-5 

1318 CALL SPRITE(»I,Z.7. Y.: 

132B CALL HCHORC (Y»7)/B. <X^ 

1330 DISPLAY ATc 1, 61SIIEI6 
VIE'VIE'l I! DISPLAY AT(2. 1 

1348 COLL COINC<ALL.C0INC> 

1338 X-x-G : : GOTO 1328 

I3G0 i-i-S 1 1 GOTO 1328 

1378 Y-V*S 1: GOTO 132* 

1380 Y-V-B n GOTD 13IB 

1398 IF SC(B THEN SC-B 

14*0 DISPLAY AT(I.6)SIIE<6 

1418 CALL COINCIALL.COINC^ 

1428 IF BOU-1 THEN 1168 

1438 CALL KEYtl.A.BUi IF I 

1440 CALL CHAB037."-* 



F U^a OND V-0 


THEN SC-SC-5 


•X-8 11 CH-1 1 


1 GOTO 1228 


X-K-B 11 CH-2 


n GOTO 1228 


-Y-S 1 1 CH-3 1 


1 GOTO 1228 


11 GOTO 1228 




GOTO 1168 




■1 GOTO 1168 




: GOTO 1160 




11 GOTO 1168 





-12B THEN SC«SC-3B 



II COLL SPRlTEitl. I. 7. Y.Xlii GOTO 11 

III SC-SC*INT<(N-641-.B9*PO)«18 
7)/8. 64)ii IF SC<* THEN SC-B 

iSC It IF SC>-SU*3B88 THEN SU-SU*! 
iSt:e<2>!VIE 11 CALL HCHAR<2.3.96) 
i IF NOT CO INC THEN 116* ELSE 146* 



CO INC (18 THEN 1468 



16 THEN 1 l£8 ELSE BOU-1 



CALL SOUND! M00. IIB. 1 1 
CALL 5OUNDi-138.8S0.il 
CALL SOUNOi-30.440. II! 
1 COLL SPRIT£(tl.48.2.> 



1 NEXT I 
1 NEXT I 

NEXT I 
X.-3.B) 



. B. 28) 



>>ii GOTO 

1460 CALL DELSPRiri 

1470 COLL PQTTERN. 

1480 FOR 1-0 TO 38 

149B FOR 1-0 TO 30 

15*8 FOR 1-0 TO 28 

1310 CALL MAONlFYt 

1528 RESTORE 1338 

1538 FOR 1-1 TO 11 M READ A 

1348 CALL 50UNDCA. B.Bli 1 NEX 

1330 DATA 738. I 17.738. 117. IB: 

7. 300. 118. 1888. 1 17 

1360 CALL HAGNtFY< 1M ! CALL DELSPRITE'» 

1378 CALL DELSPfilTEi ALL' 1 : CALL CHAR. I 37. ■ ■ ) 1 1 T- 1 

'.33* IF SC>«nXSC THEN -IAXSC-SC 11 TT.-1 ii GOSL'B 16BB 

1590 IF TT-1 THEN Tf-8 II TEXT»-'BRAVO "IMAXSC44- ! VOUS VENEZ DE REALISEZ LE 

MEILLEUR SCORE DU JOUR. . . . " 1STR4 (MPXSCli- POINTS." ELSE 1F-.B 

I6B8 FOR X-28 TO I STEP -1 II CALL SOUNOi 1 8. 338. 10' 1 1 DI£>PL.»Y AT 1 24 



Complement d'informa- 
tions pour le programme 
MONCHKA N fl 22 

Depiacement sur les lianes : 
Touche S : 

depiacement a Gauche 
Touche D : 

depiacement vers la droite 
Touche E : 

depiacement vers le haut 
Touche X : 

depiacement vers le bas 
Mamtenant. abordons le detail 
crucial du depiacement . 
Tout mouvement se (era en lonc- 
tion du pied ou de la main GAU- 
CHE du singe. C'est a dire que se- 
Ion le depiacement que vous vou- 
lez (aire, il vous taudra fairo atten- 
tion a Tendroit ou va se placer la 
main ou le pied gauche. Mais pas- 
sons aux exemples pour etre plus 
exphcite : ( mmm 

urn 

Touches a presser ; 
L;L;E:E;K;K~- 

II taut toujours se placer a la gau- 
che de la ligne sur laquclle vous 
voulez monter. 

Attention, toute erreur dans les 
displacements, entraincra la des- 
cente du singe sur la plateformo 
immediatemont on dessous 



33E. 117.758. 139. 1B3. 131. 55E. lSl< 183. 117.536 



CALL SPRITE(«t.96. 7.> 



: GOTO 



:!5F0*<TE 



I FOR ) 



M ■ 



COLL SOUND1 IB. 338. 10)i 1 DISPLAY I 



if,tn». -E 



-l.E.-D. 



utn 



CALL 5DUN0M5B. 175.3- 228.3. 262. 3J 
•*.7)M CALL SOUNDH58. 196.3. 247. 5.294. Jul GOT 
466. 1 . 37a. 1. 392. I. 338. 1.349. 2. 44B, 2. 523. 2.387.2 



KB* COLL SOUND- 13*. 

646 

69* COLL SCUNDM3B. TP. 5. TP. ;-.6 

C 648 

78* DATA 162. '.. 33B. 1. 391.1. *4B. 

.622.2 

71* DATA 454.2. 323. 2.44*. 2. 392.3.494.3.387.1. 639. ;.£9S. -.534.3.597.3.494.3 

72* DATA 3»3. 2. 440. 2. 323. 2.537, 1.622. 2. 494. 2. 523. 2. 440. 2. 262. 1.338. 1.392.1.448. ! 



PONUS- 



, .;■, ..: i- 



738 DATO 370. 1 
. 338. 1 

r-49- 1 



392.1.338, 



.1. ■ 



i. 3*9.. 



262. I. I9E. 1.262. 1. 196. 1. K2> 1. 19S< I.2BJ. '..262. 1.295. I 
282.2. 345.1. :t:. 2. 349. 2. 343. 2. S3S. 2. 294.2. 2B2. 1 • I9G. I 
C-'-ii COLL SOUHIX-l. 118. JBl'i CALL DELSPRI TEl •! > 1 1 CO 
:C36DDF76FDB6E-C ". IB I . "3838927 

l " 

.112. -7EA3O38IBI0B3A7 
•i- -. ;(,■• :B7.-FFC3A39999A^' B 
84891 I I 71 71 18989898583048181 a-r.\ I 
SU-1 ii VIE-3 II LEVEl -I ti MHL 



VOUS POUVEZ PASSEZ AU NIVEAU ' 



tCHRti -f. 



PO-I 



74* DAT 
.4.4 

7sa call c»oR' -: 

ll Clear :t call woonifyih 

76* CALL CMORMBB. -IBlfiFFFFlBISII: 

2».6*.0PT*'-F". IS1.9S. -3E7CD2EaE«E27C3B"> „„,„ 

77* CALL CHAR.97. •:C7EFBC7C34224-.98.-lC3E4B87B747:ElC-.99.-e8:44:'C-t DT7E3C 
t. RPT». -F*. 16)1 

788 CALL COLOR' 14. II. 15. 12. 5- I- I I. 14. 1. 18. 2. 1.9- 7. I > 

798 COLL ChORi 1 IB, -8F.8E:a-37C7C7C:.Q". 121. -BB7Ea23E28:CB4lC 
£■'.11:. ■a^ief.CEEFEFEFEE.C-. 164. - 7EDBFFE1 A599AS4. 
SB* CALL CHOC. 1B5. "7C7E43EOED7EICBB-. 137. RPT 
BIB RETURN 

82* coil CHOW < 44. •— B2BI87C1828 

£ES£':ie9B3BC3fi82 84p4aC8' 

83* CALu C3LCR' I. 14. 1.1 

DU-B ii 5C-B 

B4* CAtl CfURlCA. BflffleiCiazciBlE-. E2. "B800***B808P"8"? ■ ' 

E3* DIBFLflV -T.-., '.'ERASE ALL ■ "SCORE" "I DISPLAY AT r i . 6 • I 5C 

«[,* -u _-■'■■ ZttLL HCHAB<2.4. VIt>»8J 

S 7« re. :: DISPLAY AI ' 2. 4>SI ZE ' E H 

EE» 9t8PL*K ;.-.',.. 8. i-fil- :-'i5C ii DISPLAY AT'2. 18 > :K.1i6r» 

E?« TE«r«' ".:n HOW 

30* FOR »•-£ "0 1. ^'E J -I U 

91* DISPLAY AT.24.*':SEG*'TEXT». 

92* COLL KO«»(3. 1.136.672) 

92* COLL COLOR' IB, is. ; \ , 1 1 . 1 1 , 1 1 , 1 2. 1 1 . 1 1 . I 3. I I. II ) 

94* FOR 1-1 TO 5* II CALL HCMORr I MI r RNO-Jl • 3 > . INT(RND'32'I It 12BHI NtX 

93* FOR 1 = 1 TO IB := CO|_L HCHOR r INTf RNO* 21 *3) . INT< AND- 32* 1 > . I i B) 

968 CALL HCHORi INT'RND-21-3). INT(RND*32*t >■ 121) 

97* CALL HChARi INT(RND-2!-3). INT'RND«32*I ) . 112) 

98* CALL HChBRi INT-RND'21- 3) - INTiRN0*3:M >. 113)11 NEXT I 

998 FOR 1-1 TD 5 ii COLL HCMORl INT (»N0*21 '3) . INT< SnD* 32' 1 ) . I 84 ' 

1880 CALL HCfiOR. INT<RND-21'3). INTtBMO*";*!). 1831 i I NEXT I 

1818 FOR 1*1 TO 3-HINES Ji CALL HCHAR UNT< RND- 21 '31 • 1NT< «ND- ■■!• 1 ) . 137 i 

1828 COLL HCHOR' 1 :. 16. I 36 I 

IBTB FOR 1-1 TO LENITCITtm CALL SOUND' 1 1I- I I 8. 1 B i 

104* DISPLAY nT(24.12)ltt£Q*CTEXT*,I*li3a»ll NEXT X 

1858 COLL COLOR) 14. 11.2. 13. 13. II. 12.3. II. II. 14. II. IB. 2. ll> 

1*68 CALL SPRirE'11.96. 7.97. 121 >ti Y-97 II X-12I 

IB7B CALL SOUNDI3B*. -2, IB) il CALL HCHAR I INT i RND-2I *3> ■ INT< RND*32* 1 1 . 18 

I860 ESPI-INTiRND'5B-25) ii E5P2- 1 MT( RND*3B-23) 

1898 CALL SPRI IE' #2. 181. 2. I. l.ESPI .ESP2. «3. 181 . 2. 33. I . ESPl.ESP*. R4. 181 

P1.ESP2) 

11** CALL SPRITE i*3. 181. 2- 97. 1, EGPl. ESP2.«6. 181.2. 129. I.E8P1.E5P2> 

IHB CALL KEYd. AA.BB) ii IF AA()18 THEN 112B ELSE 1168 

1128 CALL COLOR'41 . INT(RND-13)'2> 



.•6311- *ONW 



LEVEL-LCVE' 



TO LFI 
NEXT X 
1628 SC-B " DISPLAY AT • 13. II )SI IE IB'BEEPi * JEU FINI" 
1638 DISPLAY 0T<24. 2'BEEPi-PRESSEr 'BACK - POUS flRRETER" 
16*B COLL SCREEN'S) 

1638 CALL K£V<3.A.P)!i CALL hEYU . 01 . 61 ) t i IF 8-8 OND Al -8 THEN 1638 
1668 IF A»15 THFN 167B ELSE CALL CHARI 1 17. RPTtl -F" . I 61 I • l OOTO B28 
1678 COLL C£OR I I END 
1668 REP r.ElLLEUR SCORE 

1698 DISPLAY OT'18.4.SIIEU7)i"9 LETTRES ?' II ACCEPT AT< 10. 201 SI 7Ei 21 - BEEPi "AX5 
Ct :: DISP^n< AT<2.2B)81ZE<*>iimX8C* il RETURN 
17*8 CALL CHAfi<137.*")ll COLL SCREEN! INT ( RND- 1 3« 1 
1718 BOU-B ii «INEB-IHNES*2 m CALL LOCATE (• 1 . Y. » 
ISPLAY AT. :. i:.SI7E'5'PEEPi"BONU5" »l SC-SC-BONU? 

1728 DISPLAY BTfJ. 13)BItGt4) (BONUS 

:7!B 'E<I*'"BRAV0 " 

C"(.SCE !'»■ 
1740 FOR K-2B 33 I E'EP -: ii CALL SOUND' IB- 330. 1 8' 
173B DISPLAY AT < 24. XH SEG4(TEXTt . 1 . 26-X) I I NEXT X 
1768 FOR X-l TO LENiTEXT*)M CALL SOUND C 18. 338. 1 81 
1778 DISPLAY AT124. I i i SEG4I TEXT*. !• 1. 2B)ii NEXT X 
1788 COLL DELSPfilTEIALDti CALL CHAR* 137. "FFFFFFFFFFF 
GOTO IB38 

1798 COLL HCHAR* (Y*7)/8. <X«7)/8. 641 
:S*8 VIE-VIE-1 M DISPLAY AT. 2. 1 > SI ZEU 
IB1B IF VIE<-8 THEN IS70 

1620 CALL CHAR.96. ,, :.B7CD2EBEBE27C38-1 I i GOTO IB 
1B3B CALL CLEAR il CALL SCREEN! 16* n CALL H0GN1 
1E4B COLL HCHAR! 1- 1-44.32)1 I COLL VCH0R!2. 1 . 44. 
LL HCHORI24, 1. 44. 32) 

SPRITE!*!- 7B.3. 35. 121. t2. 73. 13.31. 121. t3.B6. 14.67. 12 

SPRITE i«4. 69. 6.63. 121.45.63.4.99. I 21. »&■ 83. 7, 115.121 

SOUND' 280.350.0) 

SOUND'380. 118. B) 

SOUND' 18B. -2.8) 

SPRUE I R7. LEVEL *64. INTi RNO* 1 4) »2. 1 45. 12t ) 

SOUND' -1B88. -4. 1B1 ii CALL SPRI Tfi «0. 96. INT RND» I 4 ) •? 
I- 1 TO 2 it CALL SOUNDi-1388. -1. 28i I i RESTORE 1978 II 
REAO 0. B II CALL HCHARl A. B. 44) 1 I N 
1938 RESTORE 197* II CALL SOUNOi-1 
hChOR.O. 6, 32HI NEXT I II NEXT " 
1940 CALL 5OUNDi-200.-6.Bin FOR 1-1 TO 7 II CALL HOTI ONI «I . INT! RNO- 2*- IB 
(RND*38-15)-1)H NEXT I 

1930 Il-B ii FOR 1-1 TO 8 ii CALL POSIT 1 0N!4I . »Y 
10 OR YVM86 THEN CALL DELSPRI TEiM ) i i Il-tl-I 
1968 NEXT I ■■ IF ID-G THEN 19B8 ELSE 193* 
1978 DATA 19. 13. 18. 16- IB. 17. 



COLL HCHOR ' ; 



. vcmar 1 2. ; 



1E60 CALL 
1678 CALL 
1BSB CALL 
1B9B CALL 
19*8 CALL 
1918 CALL 




-3.13)11 FOR I-l TO 12 u READ A. 8 M CALL 



<10 OR IX) 24F. OR ' 



IB. IB. 19. IR- 28. : 



21. 17. 21. 



. 13. 28. : 



SOUND! 2*8. • 



.28>i 



CLEAR it CALL SCREEN<3n 



19B8 P0-P0-.3 ii Cl 
NIFVtlill GOTO B38 

2M8 DATA 7F*8f FFr88e«8I8Je7aE lC3B73£0FFFFFC04F4F47B£eC080e88e8aaef C04F4F0 

81B DATA BFB0 IF IF ■0-.et06FC0FFFFCBD0D0DaCBEB20A*9BD0Dfl6B6434F4F4J434 34 3438 

Va DA 10 /(BBFr^rHDaDf CBFFF(T.'D-DlDBDaCWiHlBCSE47434347e€«88«9«CBB4743e 

28*.B DATO 7FB8FfFf riDaDrCBFFFFCflDBDFCBFFFFBa4e2e98MpaDa08C8C»743*3478EaCB 

2**8 DATO /FB8FFFFCBDBDFC0FfFFC0O8DFCBFI 

2B38 DATO 7BieOBD10SC7CeDCF9F*JDCCEC7D3DlC*7B 

286B FOR 1*1 TO 14 II CALL COLOR! I. 16. 1 ) I I NEXT I 

2078 EMP-II ii FOR I-I2B TO 14B STEP 4 il READ 0* 

2BBB CALL HChARi6.E"P.P'I COLL HCHARl 7, EHP. I *1 > ' 

L HCHAR!7.£HP*1. 1*3) 

2898 EHP-EMP-2 t i NEXT I 

.1*0 DISPLAY 0T< 12. 131I-PAR" ■■ DISPLAY 

2118 RETURN 



CALL 1AO 



FFC04F4Fee8aec84B*e*e*eeeFc*AFara 



"BERNARD FLUILLEN- 




MINOS 



Gr^ce a la merveilleuse machine a remonter le temps 
qu'est votre MZ 80, vous voila a la place de THESEE dans 
le fameux labyrinthe de MINOS, roi de Crete. Malheureu- 
sement pour vous, les legendes ne devoilent qu'une part 
de la veriteet vous vous apercevez que celle-ci est encore 
plus terrifiante que la legende elle-meme. En effet MINOS 
a traitreusement mure I'entree apres vous avoir perdu 
dans le labyrinthe. II ne vous reste qu'une solution : utiliser 
les boulettes de poison qu'Ariane vous lance par dessus 
les murs et que le monstre avalera goulument des qu'il en 
trouvera une. II perira alors dans d'affreuses contorsions 
en poussant des hurlements a vous glacer le sang (alions 
un peu d'imagination !!) Helas, un sortilege protege I'horri- 
ble creature et celle-ci renaitra a chaque fois, encore plus 
affamee Imaisne vous decouragez pas, peut-etre que MI- 
NOS, emu par votre tenacitefinira HI par vous laissersor- 
tir de I'antre maudit ! 

Deplacement : touche de 1 a 9 (voir presentation dans le 
programme) Barre d'espace pour lancer une boulette. 

Denis ROS 

ion .(.uf BrtSIC SP-5B25: 370 REn**--- 



A suivre : 

En raison de la longueur 
inhabituelle du listing, nous 
passerons ce programme 
plusieurs fois. 

La Redaction 



61? FOOl-l TOtBW-NExT! 

fiia Foei-iToii.eDpj'iToW'fExTj 

6i'j P*IHT*»' i shCXTJ 



■ 


C7ED EEC5 


■ 


CBZ5B?B2fSC8 C9E9 CK9 


; ■. .4 cam : j 


) C aoaoac fl- 


. ii 


eece 'CBCS C9C8 CB 


ce ce ce 




oia p»ixr 


CBFEE9fSC9;9 Cfl Ztftt 



■ 




27 Z£F 

79 REfl nnnacir CUK50S 111 ,r>Z PC 

23 *EH 

39 REfl- CX-r.1 cr-nZ-GOSue 7238 

31 »£n 

37 SEP 

58 REP WIT, BRUITWJES 

'Be 0IrW*C2»l ,fl*CU- n r>8-;A*C2)«-Se-:ft»t 
3)---C«- !MC4)-"-£B- =ritt5)-*-GB- 
'82 n»{7J-'C" -«18)-'C1" :fl«C9)- _ E6':rWC 

>a).-Ga-:«(i n-"Di* ;mci7)--fi - 

183 ft«(6)-'-BI" :W*tl3]-"*W" :ft«[M)""OT" 
•M[ ISJ-'tCI- :rt»( 163-"-»£8' :ft«( 1 7)-'*Ge" 
>M «*UB)'"-l»l';A*Cl3}-'-OI" 
■18 SS> 10888 

288 »tnittmntitm*timiitiiitm»i 

785 SEP *«» JEU ttt 

78? SIP 

218 G0SU668B ■ SE-i PRESENTATION 

248 ft«-- 

?«S fl«i»*»- Pr*(**x urt touen* pour c 

758 FG*l»IT0t.£rl(A*}-3S 

25S CURSOR 1, 2* 
268 PRlNtPIO«[f»' 
J,l 



i FORJ-iIO50;nEXT 



388 G0SUB2888-BEP POSITION IPJTI«.£ M. 
398 GCSU821B8:»EP POSITION JN!TIftL£ fl. 
488 SEfl nS-. . . 

■"10 PRIHT-BTEPPS; eehee^BBt PONSTRES DE 
IRL1TS;- 
«48 PS!HT"B0IT£S DE POISON : SCORE 

■158 1FZ-BTh£nSIB 

455 (305082388 :R£P PUSIOUE DEBUT OU JEU 

168 REfl-"— -— 

478 FORI»IT02TlriTCRnOC4B)*1) 

«B8 G0SL8OBB^REP BOULETTE 

«38 NEXT I 

580 R£n--* = = » = — 

585 SEn l£ JEU COPPENCE 1 

518 [ I »2800 :GaSUB13B8 

538 Tlt'-BBaBBl*' 

548 G0SUB74BB;»EP flFFICNAGE OU SCORE 

558 G0SU82688:P£n DEPLACEPENT H0TO1E 

568 G0SU6388B-REP OEPLPCEPENT PONSTRE 

578 IFFF=8TH£N553 

588 RUN258 

598 END 

688 =!cP««*ttit<*«i»»*»*»n«i 

618 R£P PRESENTATION QU iEU 

611 PRJNT-B".CURS0R8,1B 

B12 PRIIfl Cfl 



3 C8 CB C9 CBCSCBC8- 

645 PRINT' CB 7B78 CB C8D5 C805FE 

F9C9 C905 CB Cfl' 

658 PRINT C8CICSC8D5C8 C903 C905 

PEC3 C905 C9 C60S C9" 

655 PRINT" CBClCBCeOSCe CBDS CSQS 

C9 C8CBCBCB C9CBC9C3- 

668 PRINT- C905CICB- 

665 PRINT" CS CB' 

67B PRIM- OS C! * 

675 PRINT- F505 C1E9" 

67? PRINT' 09 OB" 

678 FORI - I T06 ■ FOR J -I T038HCXTJ 

573 PRlNT"B'i NEXTI 

690 REP PUSIOUE 

591 TErP06 

682 PUSIC--C4844A4S4RB-C3R4- 
6B3 PUSIC""C4B4»F14P^RB"C3R4' 
634 PUSIC--C4B4*ri'tP.4R8-C9"C5fi4- 

685 PUSIC"-C6RBfl6R0G?e8F5Ra£7S0F5R8O3£R 
8C7R8- 

686 PUSlC-CSRBF5RBGS88fl?R8-C5R8"D7R8"F5 
R3-ea - £5RB-E5HB-G5RB- 

68? PUSIC'-D7S8 - rSRa-E?RB"DSRB' 

6B8 rtuSIC'-£3-QRaG7G5i=2G5RSH5RB«P.7Re"C5 

sa - 07R8'"E5RB-CB"C3R3-CSRei45Re" 
6B9 P0SIC"G7R8F5RBE7R3FSRaD3ER8C?C5R8- 
698 PuSIC--C5Ra-O5R8"«D7R0"05R8"«D7R8-« 

D5RB-DBD5R8' 

691 PUSIC : 'G5R8fl5Ratfl7R8«5RaG?Re-05R8-C3 
^8F7F5R8" 

692 PUSIC"FSS8G5Sa«Ra-C5R0ASR0G7RB"C5R 
8FSF5SSR5- 

693 F0RI-IT038 

594 POKE5437?,0:POKE543?B,8 

695 FORJ»1T0S:n£XTj 

696 P0KE54377, I64:P0KES43?6,1B3 

63? FORJ-IT05:N£XTJ 
638 N£XTI 
738 P.*- J 

7B5 M'fttt' Priuii uM touch, pour c 

718 FCRI=MTDLENC<W)-38 

715 CURSOR). 2* 

728 PRINTPID«CP.«.I,36) i :F0RJ-1 TOSB^NEXT 



IM 


■ ■ 


- ■ 




■ 


"*" 


■ :v.' 


PR In: 




I2tl 


- ti ■ 








121 


■ : ■■ 




T.i 


ft«-- 




i S 


p-t-fl* 


•-, 



'728 F0RI-lTCX£M*t)-36 

- ;-Rt,24 
1338 PR:«lP:0ltr*«.:,3!i:- . 

".. : 

1258 G0SU398M 

1278 Ptit<ves» M ma» »oaoB*iMJuau a m c**<. 

CHPNCE 1" 



r N=f»,c. 



278 G£TAt.lFp,«-'-TH£N2?8 
288 2-1 

298 R-S:N-8,0-B:TI=Up4.tTI»3 
388 H-6B-n'ie7:8-186 

318 G0SUBi3ee.^E- Cii^Jr' DU i 



i PRINT" Cfl OtrJt Ro» Pr«i 

I * 

, PRINT' Cf* 



738 GETfl«:IFP* 


""TMEN738 




1 015 G0SUB5BI5 


"EP EXPLICATIONS 


1828 PRINT'p" 






'848 PRINT" 






1858 PRINT 






1068 PRINT 






1878 PRINT' 




7 6 3 


1888 PRINT 






IB98 PRINT- 




£0 FO £E 


1 188 PRINI" 




EO FO EE 



'7B2 REP... 

1285 PRINT'.tx ......j,.. .t ■• »u.(*. •«*■ 

1787 PRINT'.t <<»• ■•* MM r. i-orrf.tn 
t oat o,»r lor<si*M>(...' 
'283 PRiNT'O'quir* purt.lii ciMMmi q 

1298 PRINT'!* tol n* raeilllcftt pat wot 

1292 PRINT-r.reHoi vo'.n -ilm* u»> pau 

1293 RETURN 

1368 REP--' -.-..... — — ...• .......... 

'318 REP LABYRINTHE... 

1328 Ai-'78?87B7e?B7B?e?8?B7B?e?e?8?e7a 
78?e?8?8?B?B7e?B?8?a?e?fl^.a,V -8787878 ?8 
787B- 

1338 S*-- 'B 70 70 7B 78 78 70 ?8 ?8 ?8 

78 ?8 78 78 78 78 78 78 " 

!34B PRINT'O" 

1358 REP ---- 

'35S REP BOROS rCRIIONTAUX 

"368 FORA -532481 053286 

'378 P0KEA.6? 

'380 POKEAtBBB.6? 

'390 NEXTA 

I4B8 REP'--«-"-«* 

1410 REP BOROS VERTICAL!* 

1478 FORA-53248TO5417BSTEP40 

M38 POKEft.6? 

i«4B POKEA-39.0? 

'450 NEXTA 

1468 R£p... ...... 

1470 REP DOUBLAGE DU BORO OROIT 

1488 F0RA-532B7T054157STEP48 

a suivre 



DAMES 
ANGLAISES 



A vous les petites anglaises, amateurs de PC 1211 ! 
Le jeu se deroule sur un damier 8 x 8 Le deplacement des 
pieces est le meme que celui des dames francaises, mais 
on ne peut prendre que vers I'avant. Le but final du jeu est 
d'obtenir une dame, c'est a dire de poser un pion de sa 
couleur sur la premiere rangee adverse. Good luck ! 

Jocelyn DONZE 

Lordinaleur joue noir el il commence le premier. 
On appuie sur les louche SHFT puis A, I'ordinateur s'initialise alors ; au- 
tomatiquement apres. il commence a reflechir ; et apres quelques mi- 
nutes affiche son coup. Le premier chiffre indique la case depart et le 
second la case arrivee du pion qu'il a choisi de bouger. Aussitot apres, 
appuyez sur ENTER, il vous sera demande si vous prenez un pion de 
I'adversaire ou si vous avancez simplement : 

1) Avance : entrez case de depart, puis case d'arrivee. 

2) Prise : entrez case de depart, puis eventuellement case intermedial- 
re) et enfin case d'arrivee et ENTER. 

L'ordinateur recommencera alors a analyser. 

Exemples : Avance simple : 13 - 17 (1" coup de l'ordinateur prise voire 

pion est en 33 

Un pion adverse est en 29 et autre en 20 

AVANCE 1 - PRISE 2 2 ENTER (pour prendre) 

? 33 ENTER (case depart) 

? 25 ENTER (case mtermediairej 

? 15 ENTER {case arrivee) 

? ENTER (pourfmir) 

Automatiquement, l'ordinateur enlevera les pieces de sa memoire. 
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Les cases numerotees sont 
les cases noires. 

PC 1211 



5:H=U:OQ 

lOJFOR X=4T0 5: 
IF (U*X<28>+ 
<W+2X<28)+(U 
♦X>62>'KM*2X 
>62)GOT0 SO 

20! IF <ft<r4>X)»- 
I)*Cft<H4-2X) = 
0)LET r>0*i! 
H-H*2XtH*l 

2*5: IF 07RGOSUB 
40 



I0 
3^:H=0;RETURM 
40:P-U:Q<=N:R«0: 

RETURN 
50: FOR X-4T0 5i 
R=0:F0R Y-4 
TO 5: IF <fl<U 
♦■X>-0)*<<ft<U 
4-X*YX>-l)+< 



(ftCU+X-Y><>0 
)*<YOX>>) 
LET R-R+I 
55! IF <ft«!W+X)"0 

)*<fl<>l)O0 
LET P-UjObU* 
X 
60! NEXT YIIF R- 
2LET P=U!Q=U 

+X!fl"l 

65: NEXT X! 

RETURN 
l0O:H=O:R=0:F0P 

U»28T0 62 
105: IF A'W)*! 

C08US 5 
I 1 0: NEXT Mi IF R> 

OBEEP 2! 

PRINT P-27.Q 

-27! IF 0>58 

GOTO 400 
115: IF R>0G0^UB 

9001 GOTO 300 



200:p=QiF0P. W=23 
TO 62: IF ft<M 
>=1G0SUB 50 

2101HEXT WiA(P>= 
Oifl<Q)=H 
BEEP 2: PR I NT 
P-27.Q-27: IF 
T'>5eG0T0 400 

300i BEEP l: PAUSE 
"ft VOUS"! 
INPUT "AVANC 
E-l / PRISE- 
2 ? "1ft 

310! INPUT P.0iP= 
P*27l0=Q*27: 
IF CA<P)<r>-l 
)+<B<0)<)0) 
GOTO 310 

320iIF A=1G0T0 3 
70 

330ift(<P*Q>^2)=0 

335:A=Q: INPUT G 

340: IF Q=ftG0T0 3 



360:A(<ft+0J/2)=0 
:G0TO 335 

370:ftrpj=0:ACO>= 
-1 

350= IF Q<32BEEP 
2:PPINT "BRA 
V0.V0U3 AVEZ 

GAGNE |"l 
GOTO 950 

390: GOTO 100 

400: BEEP 2iPRINT 
"JtAI GAGNE 
I i": GOTO 950 

900:A=PiC»0 

910:F0R X=4T0 5i 
IF <ft<A*X)=- 
D#rA<A+2X)» 
0)*CCOlJLET 
A(A4-X)=0!B=X 
iOl 

920i NEXT X:fi-A*2 
Bi IF A=QG0T0 
940 

930i 0-0: GOTO 910 

940iA(P)-OiA<0>= 
It RETURN 

950!"A"CLEAP ! 
FOP A-28T0 4 
Oift<fl)=l:A<A 
+22;»-l!NEXT 
ft 

960: FOP A-36T0 6 
3STEP 9!fi<A> 
—2: NEXT A 

970; FOR A-63T0 6 
7iA<A>—2t 
NEXT A 

980: BEEP 2>PAU6E 
"*** DAMES A 
I'Gi AISES ♦*• 
"iGOTO 100 ■ 



PILOTAGE 



Pas facile de piloter votre FX 702 P pas vrai ? Ce pro- 
gramme va faire de vous un virtuose de I'atterissage en 
douceur. 

Francois RABOISSON 

Une fois le programme charge, vous pouvez prendre les commandes 
de votre avion Au debut choisissez votre niveau de jeu (1le plus simple, 
5 le plus difficile) Puis, faites le choix entre un vol court (appuyez 
sur "0"),etun vol long (appuyez sur "N") Puis apparait sur lecran 3 infor- 
mations : 

- I'aititude en pieds (H) 

- la vitesse en nceuds (V) 

- la distance par rapport a la piste (D) 

Pour la distance par rapport a la piste, vous ne devez pas occuper, elte 

decline en fonctton du niveau choisi. 

Pour diminuer votre altitude, vous devez vous servir de la louche "2" la 

valeurde la perte d'altitude est choisie au debut du jeu, et reste fixedu- 

rant cettepartie. 

Quant a la vitesse elle diminue grace a la touche "F" cette valeur est ti- 

ree aleatoirement chaque fois. Pour reprendre de la vitesse vous devez 

appuyer sur la touche "R" (reacteur) 

Si I'aititude est negative, vous vous ecrasez. 

Ouand vous approchezd'une altitude egale a Outilisez les commandes 

de precision : 

- I : vous montez de 3 pieds et la vitesse baisse de 2 nceuds. 

- : vous descendez de 5 pieds et la vitesse augmente d'un nceuds 
(conseil : reperez la hauteur de que vous perdez a chaque pression sur 
la touche "Z"). 

Pour vous posez, votre vitesse doit etre comprise entre 40 et 80 nceuds. 
La longueur de la piste est de 700 metres (de a - 700 metres). Si vous 
depassez - 1000 metres, vous allez vous retrouvez face au rayon tele- 
porteurque vous devez declencher en tentative maximum en trouvant 
la combinaison comprise entre et 100. 

Bonne chance, et surtout n'oubliez pas de sortir le train d'atterrissage 
avant de vous poser et ceci grace a la louche "T" (pour verifier si vous 
I'avez sorli, appuyez sur la touche "N") 

Remarques:Lorsquevousdepassezlapistectquenouvellescoordon- 
neos sont generees.le train d'attorissage est autornaliqucmcnlrentre. 
SALUT ET BONNE CHANCE, VOUS EN AUREZ BESOIN ... 

FX 702 P 



1 VOC :0=26:HRir 

OiPE! CSS 5!"< 
PILOIfKE >" 

2 WIT BMW "HIV 
EM C1-2-5-M) 
",8 

3 FOR 1=1 10 5: IF 

EtIIHEZI \:W 
1 
i l--'M 'tm<m 
:1F Z(48 IBEII 4 



5 PRT "C00P.1E US 
I«.(0/II)?*:1F 
KEY=ViH=8i»iV 
=W5:0=9e8B:6(ll 


18 !F K£Y=*H"!H=4B 
88: V=258: 0=5888 
8:5010 

IS 6010 5 

28 mil a/tv-m 

TlHI'lVm"! 



D":0 

25 IF 0!-1688iPRl 
"VS RVEZ DEPOSS 

E LB PISIE'itOl 

408 
25 IF K48:PR1 "»I 

1ESSE 1R0P FOiB 

LEUIORrsEKO 
21 D=D-E<:86 
28 IF KEY="»"i60tO 



25 IF 1>""1IF V;S8 

iSOIO 340 
30 IF i:EY="r:50I0 

348 
45 IF KEY=T;H=Ht 

3:V=Y-2 
58 IF KEY="-";H=H- 
/ 5:V=V»I 
55 IF KEY="R":R=1N 

1 (RBNt>38):«RI 

1 0:PRT "PLUS": 

Rl" H0E>JDS":V=V 

»R 
60 IF KY="F";PR( 

"fiEPOFREIK OK": 

6=IKI (RONI'38) 

:V=V-6 
65 IF KEY=T':H=H- 

Z 
16 IF H'.OlPRl "VS 

VS E1ES ECR8SE" 

I EM 
72 IF Si8:60!0 288 
75 IF Bil5088;X=III 

1 (R0NM58) 
77 IF C<15808:)!=0: 

6010 
80 IF H'SlPBl "Wll 

IB6KE OEVBIII VS 

":6010 227 
85 IF X=12:PR1 "VS 
fiVEZ EVIIE OH 

oviir 

SO IF X=15',PR1 "CH 
HSSEUR BERRIERE 
VS":60I0 245 

100 IF X=20:J=1NI ; 
PRHI"798):««I1 
0:PRI CSI 6I'H! 
t":J:"P":H=H*J 

103 IF K>29IS=1HI ( 
PP.NI«58>:H«11 
:PR1 CSR 5i"i"l 
K:" H0EU0S":V=V 
*!' 

115 6010 

m IF H=8:60!0 215 

205 6010 

215 IF DMOOiPRI " 
8HEPRISS06E KO 
RS PIS1E":E» 

220 IF V<80!6010 38 
9 

222 IF »S88!PR1 "VI 

sulto page 15 
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JACKPOT 



Prepare2 la monnaio ! Dot6 dun tres bon graphisme et de 
beaucoup d'humour ce programme a defaut de vous ren- 
dre nche, vous fera passer de longues heures a jouer. Et le 
temps c'est de I'argent, non ? 

Stephane GERMAIN 

Mode demploi 

Apres reflexion du TEXAS. I'ordmateuf commence a constmire le JACK 
POT On remarquera les GAINS etMISESdechaque cole du JACK POT 
Des billcis verts symbolisant des billets de 10 Ss'accumuleront sous les 
colonnes "gains" ou "mises" au fur et a mesure du jeu. 
La mise est a chaque fois de 10 S. 

Le levier du jack pot s'abaisse. les images apparaisent aleatoirement 
(uneclochetie. une cense, une branche. un citron, un coeur ou une bar- 
rel et le levier revient a sa position mitiale 

Ace moment, on a la possibility derejouer 2 fois, une seule image: la 1*" 
(louche D la 2 (touche 2) la 3° (touche 3) ou aucune (n'importe quelle 
autre touche) 

Apres avoir rejouer une ou deux ou aucune image, I'ordinateur affiche 
le resuitat obtenu (voir ci-dessous) : 

- Les trois images sonl identiques (gros lot) 30S 

-Les deux premieres images son! soil une cerise soitunciiron. soil une 
barre 20S 

- Les deux premieres images sont soil un cceur. soit une branche soit 
unedochette 10S 

- La premiere et la derniere image sont identiques 10S 

- Les deux dernieres images sont identiques, ou il n'y a pas d'autre 
concordance OS 

Lorsquel'unedes colonnes GAINS ou WISES est rempliede billets verts 
de 10 , I'ordinateur fait savoiraujoueurs'ilagagneous'ila tout perdu. 
Si! a gagne. i'ordinateur lui dit combien il a gagne de dollars. 
Enfin, I'ordinateur demande si lejoueurveut refaireunepartie, auquel 
cas il recommence tout au debut 



1410 13 

■ i. ■■ i< ra io sfEf ? 

II '-:■ ■ .' . | 



470 ■■'.•'■-,' ' I". . 

,480 CALL SOUNDMSO,- 
.490 C-l 
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IOO CALL CLEAR 

130 CP-0 

1*0 CALL SCREENI4) 

I! -i .COULEUfcST 

160 CALL C0L0R(8.7, IOJ 
I -QLCR<9.-'. 16< 
ISO CALL COLOR UO. 13. 16) 
190 CALL COLORUl.2,161 
20O CALL C0LDRI12.6, 16) 
2IO CALL COL0RM3.M.IA) 

220 call color!14.5, i&> 

COLOR (13, 14,10) 
240 CALL COLOR! 16.7.4) 
230 REM — DBF. COEUR— 

2&0 CALL CHAR<?6. ,, 0OOOlC3E7F7F7F7F" 
270 CALL CMAR'97. "•-J0O0337CEEFEFEFE" 
280 CALL CHAR(9B. "3F1Fi.iF0703G1~1 
290 CALL CHAR(99.-FCFBFOeOCOB") 
30Q REM --DEF. CERISE-- 
310 CALL CHAPaOO."00000000001F3F7F 
320 CALL CMAR(104. "0000060810204080 
330 CALL CHAR(101.''7F7F7F7F3F3FIF** 
340 CALL CH«RIIO2,"E0F0FOF0FOE0CO-J 
330 REn — DEF. CLOCHETTE-- 
360 CALL CHAR<lt2,"000001010lOIOIOI 
370 CALL !TMA«<113,"OOOO8OeOBO9OB'j80 
380 CALL aV*t<l2'J.-0~'j7'j707'j-")Ff7'>f 
390 CALL CHnR<121."CO£0E0£0E0FOE0B0") 104< 
40© REM — DEF. CITRON-- 
410 CRLL O4ARiJ28,*0000O0030FlP3FFF 
420 CALL CHARI129. "OOO0O0C0FOF8FCFF 
43<V CALL CMMK136, "FF3F1F0I 
440 CALL CHAR(13I . "FFFCFBFOCO") 
450 REM —DEF. BRANCHE— 

460 CALL CHAR<1O3,"0010393Q3D1CID1£j 
470 CALL CMAR< I06."O0BlChtFD ; ;fc' t : i "< t B 
480 CALL CMAft<l©7,"lE0Cia333F7F4F"l 

490 call cwwtioo, "scseoeooeoc") 

300 '-En --DEF. 8ARRE-- 
SIO CALL CHAR 1 13*, 'OOOOOOOi 

■ CMt 
ZZO CALL CHAR(l3a.' , 3F3F3F 
940 CALL CHARM 39. 'FCFCFC") 
330 REM 

3*0 CALL CHt.fi i",. *FF"OOFJ I ■ I FPl 

370 CALL CHAR! I 16,"OOFFOOFFOOFF-X.FF' 
390 REM 

590 RE" MACHINE 

600 rt^-FFFFFFFFFFFFFFFF" 

■ . ■ : ■ ■ ■ 

620 REM -- ENTOURAOE'-- 

630 CALL CHAR!144,At* 

MO CM !. HCHAR ' 10, 12. 144. 101 

630 CRLL HCHAR' 13. 12, 14A. 101 

660 CALL VCHAR'l 1, 12. 144,4) 

670 CALL '/CHARM 1,21, 144.4 1 

60O REM MONCHE 

690 CALL CHAP M 14 , A» I 

700 CALL VCHARM2, 27, 114.31 

7 to CALL CHAR (37, "FFFEFCPB 

720 CALL CHAft<38,"OFlF3F7FFFFFFFrF'' 

730 CALL HCHAfi(17,27,37) 

740 CALL HCMARM7.2t.. 38) 

7SO CALL HCHARMB.7fa.37) 

760 CALL CHMI40, "0000000000010307 " 



770 CALL HCHARU6, 26,40) 

780 CALL CHARU32,A») 

790 CALL VCHARUO, 27, 132,2) 

SOO REM ENTOURAGE MACHINE 

BIO CALL CHAR<152,"0303030303030303" 

B20 CALL CHAR(BB,-030303030303o;03"l 

B30 CALL VCHAR(6.7, 132, 16) 



i , a, a 



id 



B30 CALL VCHARI 
B60 CALL VCHAR(8,24,89, 11) 
B70 CALL CHAR'.BO. "O3OF3CFOC0") 
BBO CALL HCHAR<7,B,89, 171 
B90 CALL CHAR (90, "O30F3FF3C30303O3" 
900 CALL HCHAR<7, 25,90) 
910 CALL CHARC91,' , FFFFFF") 
920 CALL HCHAft(fc.B,9l, 17) 
930 CALL HCHARO.B.91, 17) 
940 CALL CHAR < 92, "FFFFFF03030S0303" 
930 CALL MCHARI6.25.92) 
960 CALL MCMAR(B,23.92) 
970 CALL CHAR!143."0") 
980 CALL HCHAR(9,9, 145. 141 
990 CALL VCHARUO, 9, 145,9) 
[000 CALL VCHARUO. II. 145. 91 
1010 CALL VCHARdOi 22. 143,9) 
1020 CALL HCHARM6, 12, 143. 10) 
1030 CALL HCHF.RU7, 12. 145, 10) 
CALL HCMARMFj. 12. 143. 10) 
CALL '/CHARM 9, 8, 143.3) 
1060 CALL CHARM5J 
1070 FOR V-10 TO II 
108© CALL VCHARW.IO, 133* 
1090 CALL VCNAft(V,23,133) 
1 100 NEXT V 
11 10 REM ENTOURAGE 
I 120 CALL CHARM 22. At) 
1130 CALL HCHARM9.9, 122, 16) 
1140 CALL VCHARI20.9. 122,3) 
1130 CALL VCHAR<2'.>. 24, 122.3) 
1160 CAIL HCHAR<23.9, 122. 16) 

OOOOOOOOOOFCFCFC") H70 REM - -MOM: JACK ROT 

1180 FOR P-l TO B 



I STEP 2 



i FOR 



>i to: 



■44.1 

-*-.■■• 

::>:■ 
|470 

. 
J4-M 
330O 
33 IO 



1320 tMM'=INT'6»RHDI + l 

IB30 on IMMiGOSUB 2870,2940,301' 

1540 C-C*2 

1330 NET I 

1360 CALL VCHAR<10, 27, 132,2) 

157m call VOWRU2.27, 114,3) 

1380 CALL 30UND(9O,63O,3) 

ISM FOR S»l TO 3 

Then 1/.30 
) GOSUE. S290 



16 



I FOR DELAI-I TO : 

I NEXT DELAI 

i REM EVAI UA1 



16B0 IF IMIll' 
1690 GOTO 2070 

I .-■■■■■ IF 



710 I 



/2 HIT | 1M 



■ HEN . ■ ■ ■ 



1720 REM GAIN 204 

1730 CALL CHARM40.B*) 

1740 CALL CHARM41. '■'i' , l 

1730 FOR D-l TO 2 

1760 FDR W-IO TO 16 STEP 2 

1770 CALL SOUNDMOO. 700,3) 

1780 CALL VCMflRfW. 10, 1411 

1790 CALL VCHARI14.23, 1411 

1800 CALL VCHAR(K,10.140) 

IBIO CALL VCHAR<W.23. 140) 

1820 NEXT U 

1830 NEXT D 

1840 CALL SOUHDIlOO,' 

1850 CALL SOUNDMO' 

I860 CALL SDUNDI 10'. 

1870 FDR P-l TO 4 

18SO CALL HCHARC20, 

1990 MEKT R 

1900 FOR P'l TO 9 

1 CALL HCHAR122. 11*R.ASCISF.G»!' 



440*2) 
). 660,2* 
),S30.2) 



'.ASCfSEGtr-GRin 



R. 1 



• if 



FOR D"l TO 2 
1940 G-G-2 

1950 CALL HCHAfMG, 3, 109.21 
I960 IF 6-2 THEN 2490 
1970 NEXT D 
1980 BOTO 2430 
2930 RETURN 

2940 REM PRINT ---CERISE 

2930 GOSU6 3500 

2960 CALL HCHAR (L,C, lOO* 

2970 CALL HCHAR !L,C*1 , 104) tf 

2980 CALL HCHAR <L- 1 . C, 101 ) 

2990 CALL HCHAR <L* 1 ,C* 1 . 102) Q 



--CLOr.HETTE-- 



3000 RETURN 

3010 REM PR IN 

3020 GOSUB 33O0 

3030 CALL HCHAR1L.C, 112) 

3O40 CALL HCHAR(L,C»1, 113) 

303O CALL MCHAR*L*1,C, 120) 

3060 CALL HCHAR1L*1,C*1, 121 

3070 RETURN 

3080 REM PRINT --CITRON-- 

3090 GOSUB 3300 

3100 CALL HCHAR.IL, C, 128) 

3110 CALL HCHAR(L,C*1 , 1291 

3120 CALL HCHAR (L-M.C, 130) 

3130 CALL MCHARIL'l.C'l. 131 

3140 RETURN 

3130 REM PRINT --BRANCHE- 

3160 GOSUB 3500 

3170 CALL HCHARIL.C. 105) 

31B0 CALL HCHAR(L.C*I. 106) 

3190 CALL HCHAR(L*1,C, 107) 

3200 CALL HCHAR(L*l.CH, 10B: 

3210 RETURN 

3220 REM PRINT BARRE--' 

3230 GOSUB 3500 

3240 CALL HCHAR(L ,C . 1 36) 

3250 CALL HCHAR (L,C*1 . 1 37) 

3260 CALL HCHAR(L*1 ,C, 138) 

3270 CALL HCHAR IL* 1 , C*l . I 39: 

3280 RETURN 

3290 CALL KEY 10. KEY, STAT 1 



1190 CALL HCHAR (9. 12*P.A c ;C(SEG*("JACK POT", P.: 

1200 NEXT R 

1210 REM NUMERO DES 1HAGES- 

1220 FOR R-l TO 5 

1230 CALL HCHAR M6, I 3*P, ASC <SEG» ( "1 2 3",P,1): 

1240 NEXT P 

1750 REM COLDI 

tJM PUR R-l TC 3 

17/" CM i HOMRI i ,2*F,A8C(8EO*t"8AIN8",F, 1) ) * 

1280 CALL HCmARM.27*R.ASC<SEG«( "MISES'.R. I)) 

1290 NEXT P 

1 100 CALL CHARM09.A*) 



ei 



310 1 



'76 



1320 M-26 

1330 RANDOMIZE 

1340 M-M-2 

1 330 CP-CP*1 

1360 CALL HCHAR 'M. », 109,21 

1370 CALL HCHAR (20, 10.32. 131 

13B0 CALL HCHAR (21. I0.3.', I ") 

1390 CALL HCHAR (22, IO. 32. 13) 

I400 CALL VCHAR(9, IO. 143. IO) 



5JO0 IF "iTAT-O THEN 329V 

3310 IF KEY-49 THEN 3350 

3320 IF fEY-30 THEN 3400 

3330 IF KEY-SI THEN 3430 

3340 GOTO 1630 

3330 C-l 4 

3360 CALL SOUND(240,33O,5) 

3370 IM(1)-INT(6*RND)*I 

3380 ON 1MM)B0SUB 2B70.2940.: 

3 390 RETURN 



> CALL 90LM 

... . ... 

■■ ■ ' 



■ - ■ IN 



■ ■ 



■."' 



1990 

2COO 
2010 

:■■-';■" 

2030 
2040 
2030 
2O60 
2O70 
2080 
2090 

. :■ i 

2110 
2120 



ON ln(3)OOSUB 2070, 

Ff.NJF'1 

'■en 

FOR D-l TO 2 

CALL HCHAR'L.C.115) 

• CALL HCHAR'L.C'1.1 13i 

' CALL HCHARiLM.C. I 13) 

■ CALL HCHAR (L «1,C*! ,1131 

■ CALL HCHARfL.C. I I6> 

■ CALL HCMW(L,C*t. 116' 
i CALL HCHARIL'I.C. 116) 

) CALL HCHAR(L*1.C*1.U6) 

■ NEXT D 
> RETURN 

REM 

REM RERDU l"t 

CALL SOUND t ISO, DO, I) 

FDR P-l TO 10 

CALL HCHARf21.11*P.ASC(SEG*(-RERtu | ■ i 

NEXT P 

GOtO 24S0 

Ften 

REM GAGNE 10* 
CALL SOUNOMOO.660,2) 
CALL SOUNDMOO.770,21 
FOR P-l TO 7 

CALL HCHAR (20.12-P, ASC *SEG»( "GAGNE.. ".P. 1)1) 
CALL HCHARI22, I2*P. ASC (SEG* f " • lot ■■ 1 P.|1)I 



> G-G-2 

) CALL HCHARIG.3, 109.2) 
. IF G-2 THEN 2490 
) GOTO 2450 

I REM 

) REM GRD5 LOT 

I CALL CHARM33,Bt> 

) CALL CHAR (134. "C") 

) FDR D=l TO 2 

* FOR H-9 TO 17 STEP 2 

) CALL SOUNDMOO, 770.4) 

> CALL VCHARtW. 10. 1341 
) CALL VCHAR(W,23. 134) 
) CALL VCHA«(W,10, 133) 
) CALL VCHARIW.23, 133) 




) NEXT 

) NEXT 

) CALL SOUND M 10, 440,2: 

) CALL 5OUN0UlO,35O,2: 

) CALL SOUNDM10,440,2: 

> CALL SDUNDUIO.660.2 
) CALL SOUNDMIO,B80.2: 
) FOR P-l TO 12 

> CALL HCHAR(20. 10»P. ASC <5EGt 
) CALL HCHAR<22, IO*P. ASCfSEGt 

> NEXT P 

> FOR B1LLET-1 TO 3 
) G-G-2 

> IF G-2 THEN 2490 

) CALL HCHAR<G,3. 109,2) 

i NEXT BILLET 

) IF M-2 THEN 2490 

D CALL KEVfO. KEY, STAT 

) IF 3TAT-0 THEN 2460 

■> IF KEY078 THEN I 

■> IF M<G THEN 274( 

> FOR 1-1 TO 16 
1 CALL SCREEN (I) 

> FOR DELA1-1 TO I 
3 NEXT DELAI 
'. CALL SOUND(30,350.3 
T CALL S0UND(3O,430.3 



) CALL SCREENMI1 

) CAJ.'. CLEAR 

i CALL S0UNDI20O, 392, 0,784,0) 

) CALL SOUND(200, 349, 0,698,0) 

1 CALL SOUND1200, 330,0, 639,0> 

1 CALL S0UNDI200. 294,0, 587,0) 

) CALL SOUND (BOO, 277. 0,334,0) 

) CALL SOUND! 1000, 294, 0.397, 01 

> PRINT TAB(10)l*BRAVa< ! !■)■ "(TAB (8)1' 

) GAIN-120-<CP«10> 

I PRINT TAB (91 1GAIN." DOLLARS" 

) PRINT M "f •'*t»*ttt*ttttttt*tt*ttt»»- 



ERRATA 

TEXAS BIG MUR N" 22 

Pour le programme BIG MUR en 
Basic Simple du n 22 les ama- 
teurs averlis auront remarques 
des branchements (GOTO ou 
GOSUB) a des lignes inexistan- 
tes. Les lignes doivent etre inclu- 
ses dans le programme sous for- 
me de REM. (Exempletigne3G0- 
SU8 107. La ligne 107 est la su<- 
vante : 107 REM). Ces Ngnes de re- 
marques trop nombreuses ayant 
et6 supprimees. 



-i\ 



-99 



/W> 



UNT 
) INPUI "VOULOIR-VOl 

) IF R*-"our- r i ({ m : 

) PRINT " DOMMAGF. . 

■ rjioi 

■ CAJ i BCRfiEN<14) 
I FOR MI- t in 1 

) CAI L SOUND(30.I65. 1) 

■ i DR j.m i. |»| TO 30 
> NEXT DELAI 



; REFATRE DHL PART1E9 CIUI /NON i 



> NEX 



MI 



S0UND(2000, 1 10, I) 
2B10 CALL CLEAR 

7820 PRINT "VOUS AVOIR PERDU DF L'ARQEKT.. 
2B30 INPUT "AFRES CET ECHEC VOUS HEM 

FAfRE une AUTRE PARTie.non- DUI/NONi 
2B40 IF R»"*0U1" fMEN 100 
2830 i '-I'll "Mi-.uvoi'i JOUEUR! ' 
2B60 STOP 

2870 REM PRINT COEUR - 

■:..-..... i,;i in. -,..,. 
2890 CALL HCHAR (L.C, 961 

. 9 -M I HOWWtL.C+l ,971 

2910 CALL HCHARILM.C. 90) 
2920 CALL mcharil* I ,C« 1 ,vvi 



SV 



0& 




+ 



Suite de la page 9 



POKER ALPHABET 





12300 GET RtiN - VAL 'Rt)s rr N 




< 1 OR N , 5 Ti'l N 




12510 R3 - 4i GOSUB 3000 1 HOMF 1 Rl fURN 


: i : o i DR • - 1 TO 1. / 2 


12320 ( 


12113 VI - 1 • AiV2 - Z * L - All 


12321 t 


. | . t: IF I - 10 rHEN 1 - 


13300 REM MOM 




13301 I 


12120 for b - I ro 12 




i | ■.. YTAfl Bl HTAi VI : PRINT MID* 


13303 IF II 1 OOTO -''■" 


rp*,A,nii htaj >/;■! r-RiNT mio» 


13308 VTAB Hi MTAB II PRINT "RON 


IF»,I A, 11 


NOH,C'EBTi"iM - 'APPLE II" 


V7AB Bl KTAB / ' I A: i RIH1 


i PRINT i pniNT DtiRO - 9) OHUB 


MIDt IF»,L - A, 1 ) 


3 1 WTA8 !■': 1 RWl ET LI 


i i is vtai. (24 Bl : MTAB VI i * RIN1 


VOTR&f*i PRIW 1 INPUT R*l RETURN 


MIM '1 t.A.lMl MTA8 ■'-: ' R1N1 




MIDt (1 t.l. A, 1 ) 


13000 i 


12)40 VTAB & - li MTAB Vli n [Nl 


l -.' - ■ l i 


■■ "i , HTAt -'■■■■ FRIN1 " "i 


13003 RFM DEUX JCUX 


12143 MTAB 23 - Il HTAB Vll PRINT 


19004 t 


■■ ; i HTAB '■■'' PRINT " ": 


13009 i 


i . i-,., r.rc 'ii- -."■■: ril / I hi ti(. " r.i 


13020 VTAB .'■>: PRim "VOULBl WDU 


1.:. ■ *: GU'iUU ViT'.t M [1H '1 


■. imii i- nvi I.. . . "i 1 PIN! i M<INt 


121*0 i 


1 i | >■' H : '.M ID- ?35iR« - Il 


121*1 i 


fifj HI' ■■ ■ 


l . w,: m ii ' ."ii • Mi il ii 


1304O PRINT -de:; LBTTRtt. . ."I PRim 


121*3 i 


: 1 p. INI i HMMV,; '.11 F li- : ■■ 


:..■■■ : 




12300 vr/M- .■ : PRINT 'OULEZ-VOU 


190*0 i RIN1 ■ i '"" Bl EUIVENT?" 


S JOUER..."! PRINT : PRINT 1 


1 | P INT . 1 RIM1 1 1 MNI ". 


f n i n r 


mi riREEB ■■ i«ARD7"i SPECD- 


I2:2 r > R!i - li OOSU6 3000 


?-,-.< PRINT i PRINT 



13090 BET Rti/A - VAL Ifttl! IF 

ZA I OK » 3 IHI.N I5O90 

1-,1'ii-p (illld 40i|-i 

19990 I 

19991 : 

19992 RFM DATACT [NlTIALISATIO 

19997 t 

1999D 1 

19999 I 

,'•"..,<- lirtIO I ! ".. 4(1. 192. I 16. Oil. 

-:.-.•">>. I . 1.24m,'*, .',.-.. '1-., 

I F4,O a '. "•, 2. 1,96,0,0 

BATA " I CONTRI HOI - . : 

. ■",•-- ,-. i.ruj jrai ■ . ■. 

EN DBNONBTRATION aihdmaii 

OU ■-. .■. -4 i OUR BPPRI ni'ii 
L' ALPHABET-, 1 ,"3 AVCC LE 

■, - ,,l,l I I ':-. ■■ 

20100 DATA 200,90,-10.0, 190,90, 

10, i-,. :,..,-. i-i.-". I"--.-,'-. 

2,8, 1BO.40. -20, i" 
:■.,-. x DATA "i - TREE fori ". 2. '• 

2 FDR r •■ . 3, ■' 3 MOYEN" , 2, 

■4 I ITANT",3, "■'■ ' 01% 

i i ii mini rim ". i 
:•; iir I - " in ;-.:i umu i i run 

no * i .' i fi " i cai i ■ ■" 

.-iiiii. i ric l ■ l in ■■■ i-l r.lj in i i l 
, l>. m ..u rift (I ,2i i Ml (l I 

I OR 1-1 IO 51 FOR J - I ro 
41 READ 001 I.Jll NEXT J. 1 

OR I-l 10 3i MAD Nl»(l 

,l)t II ..i- NI«(I, .'■ i in • I I 
■541 ■■ m rURN 



NIGHT FLIGHT 



Avec le peu de bombes restant dans les soutes de votre 
biplan.amverezvousavaincrelavilletentaculairequitou- 
jours se reconstruit devant vous ? 



■■Hi.Hi.i-*,. :;■-. 



I tEFCRKV-233, 153.193.255. 193.1 9", 355 



liB DEFCPB'9-233. 13], 131, 13 t, 131,131, 13 

126 IEFC,R»<19>- 255,131.131.255, : ? '. . 

139 t>EFCfif<ll>. 235. 235. 96. 96, 96.127. 96,9 




FOSH-BTOTiS'I "10 



iNd 



*::i» : 



2?e ra-hxb- 37:YB»ie 

368 REK PRESENTATION 

319 CLSs SCREEN'.?, 5 iciji.j? -£.>.; 

328 ATTRB9.1 

338 LOCATE 12,11,8 :C0L0PI,3 

?49 PRINT* NICWT FLICHT ■ 

358 ATTRBS.e 

368 GOSUB 8898 

■' -"•\: ■■'.:• 

39! B0XF..1.9 ..-■ 38, M ■-»".-; 

488 Ai- -ATTENTION... - : CC-J, : C05UB 

18888 

418 Ai.-OBJECTjr zm VUE. . . -ICC-2 

J'JOS'JS 18888 

4£6 AI-'UN SEUL ORC'RE... 

COSUB 1 8998 

438 AO-ANEANTIP LA ViLLE... "iCC« 

5: COSUB 18999 

449 AB«- TIPEP :BhRRE rj'ESP&CEHEHT 

*'CC"6:C0SUBiee93 
459 ATTPB 8,9 

588 PEU JEU 

548 COSUB 4599 

558 CLS 

~*a sfjyv- i. : :-s ■-■ 319, i 

S99 COSUB 9988 

1999 REN 

1819 >:B*37:VB-19!NT = 20 

1929 



fO 



lit 



I P£rt 



1118 PSET< 1, J>CPI'2/,1,9:C0SUB 9300 

: ;ja pjet. j, j ','!■: .:.o: v.. -'.:£-. --■;,.-..-, 

1138 PS£Tf2, J>CP»'2),1,B 

1158 P3ETU, J>GRi<9>. 1,9 

1 168 P3EK2, JjC-P*<1 -.1,8 

1179 PSCT<3/J>CR*(e)»l,e*C09UB 9388 

1288 FOR 1=1 TO 31STEP2 

1295 PLA'r-A8L24T101C'0- 

1219 PSET(I-l,J>- • 

1215 PSETM. J.' " 

1228 FOP A-8 TO 2 

1238 PSET'I*1*A. JiCPI'A/,1,9 

1249 NEXT 

1269 IF SCREEN- J. 4. J ■ 32 THEN 3989 

1398 K*-imcc?» 

1319 IFrB^24TMENRSET',E. l -; ■ ' IPBE1 - 
*1.VB-1>- -!PSET'XB,YB'- -:PSET'Xfl*l,V8' 

1329 IF B-l THEN 1428 

:338 IF y.%' ,' -THEN COSUB 9398:C0T0 1519 

!4B8 KB-I-I 

1419 Y8-J«B-1=E«4 

1429 IFYB^ !8THENYB-fB*2ELSE YB-YB'l 

1425 PSET-XB-YB-l'* -:PSET<XB*l.Y8-l <• " 

M39 PSCT'ZB.VB.'5»f 3;. 4,9 

1448 P'.ET- .'6-1 . .B IRK 4 ..'■ . .-: 

1459 PLAY-A9L24TI0300- 

14^9 IF YB/220P E-9 THENB-B! E-4! COTO 151 



Michel PIPON 



[Sit NEXT I 

2588 IF J-23 THE* COSUB 5008i!;OTO58e 

2810 IF B-l T H £\ ;;SU=4 t ^a:j=J'l:COT0 12 

99 

2I9A COSUB 4008 

2200 j>j4-nc6To list 

3099 PEN PERCU 

3*19 fop l-7 TO 1 STEP-1 

3029 SCREEN :,;. 7- 

3930 HEX1 L 

3950 SCREEN 4, a. a GQSUfi -.-.$$ 

»53 :•" JEu-2 THEN 3140 

3968 FOR *> I TO 1*2 

3070 PSET'V.j.- - 

3888 NEXT r 

31BB FO» T«J TO 22 

3195 PLAY-DORE- 

3119 PSET<I»2,T)* ■ 

3129 PSETCI»2,T*1 -GR*' 13;, 1,9 

3149 KA-l:rrj.0 

3138 NEXT T 

3168 HT*399iC0SU89399 

3298 COSUB 6999 

3398 G0SUB4588:C0T0 580 

4889 REn FIX DE LIOK— 

4819 PSCT<31,J>' " 

4828 PSET<32. J jCPf T.9) . I . B 

4839 PSETJ33, JiCPUl l, 1,9 

4848 PSET'32,J>* ■ 

4939 PSET133. J'CRf:9',!.0 
4969 PSETC33.J)- * 
4879 FOR K-34 TO 36 
4899 PSET<K, J>- ■ 
4898 NEXT K 
4199 RETURN 

4588 REM NIVEAU 

4518 CLS:SCPEEN 2,9,9 

4329 ATTRB9.HL0CATE 15.12,9 

4323 80XF (I,7e>-<318,88>,1 

4539 PPINT-NtvEAU -;ha 

4535 BOXFd. I 18)-(318, 129>. I 

4349 PLAY-O3LI9A8T3D0DO r HD0i'QJODOI.ADOS0r> 

0L>OFAO0DORED0F ADORE' 

4558 RETURN 

5999 PEA CACNE 

. 5818 LOCATE 1 3. I 9. 0: COLOP 3. 1 : PR INT'BONU 
> S-J(MJ*1)«399 

5828 S*S*(NJ*i:'»3ee:nj-«J*i:NA»Hft*i 
5038 NT»1989iG0SUB 9399 
5949 COTO 389 
3056 RETURN 

6089 REM SCOPE - 

6818 CLSiSCPEEH 2. 6. 9: ATTP88. 1 

6915 IFS<S(6)TH£N 6188 

6928 LOCATE 3. 12. 8: PRINT 'ENTREZ VOTRE NO 

H * 

6939 INPUT Nl 

6949 1-9 

6959 IF S'S<I> THEN 1-lMiCOTO 6839 

6869 809<I>lS<I>-SiSCI»Si<I)iStU>-N* 

6863 SB>8f !•-(>>$< I-l »«SCt SBt-SH I * I >fSt< 

I*1)-SC* 

6879 FOR J-I-2 TO 6STEP2 

6889 BC>3<J)i3<J)-SBiSe*9<J*DiS<J*>w»SC 

6095 5C*-St< J .:Si< J ■-■iff. ■; i i i 

J*l /-SCI 

6898 NEXT J 

6188 CLSIATTPB8, t 

6119 LOCATE IB. l.af.OLQR 9>3:PR[NT* SCOP 
E - 

6115 C0L0R1.9 

6120 FOR 1-9 T06 

6139 LOCATE 3. 2»I '6: COLOP 1*1 

6149 PRINTS' I JlS»<I> 

6139 NEXT I 

6168 S-9IATTRB8.9 

6178 GOSUB 9999 

6180 RETURN 

8899 RE* CONTINUEP 

8819 LOCATE 9.22IC0L0R3.9.9 

3028 PRINT-aof-i.i.-e; 

8930 HtMMP'i'i l | 

?949 RETURN 

9090 PEN NhISONJ - 



LOGIC STORE 

LA MICRO INFORMATIQUE 

FAMILIALE 



r5ES"PRIXATOUT CASSER 

Du 3 au 7 avril en avant-premiere 
dans la micro informatique 
LOGIC STORE LANCE LES SOLDES 
sur des micros de qualite : 

[atari] 




9918 e«*;E*4 

9829 FOR I»8 T0S2 STEP2 

9939 r*l*tNT(RND«2) 

9933 IF K-l THEH niKCRXS'EPUI'.M 

9937 IF n.2 THEN R1MGR<(3 : -i- • Utl 

9048 AL«9'lNTlPN0«ll-.-H,l 

9943 CO-l*INT<RNO»S> 

9930 FOR J-23 to AL . I STEP-1 

9968 PSET. I. j.HH,C0.7lPSET.;I.l, j>nei,C0 

9963 PLAY-T1O5P0- 

9970 NEXT J 

9086 L-1*INT<-RND*2> 

9894 IF L-l THEN TlI.GRK6>!T2|.GRIt7> 

99B6 IF L-2 THEN T 1 t-CRt - 11 '■ : T2I«CR»' 12 • 

9998 PSET (I,AL>TI«,C0.9iPSET« I*1.~L '2t 

■ C0.8 

9188 NEXT I 

9139 RETURN 

?289 REM ETOILES --- 

9219 FOR I-l TO 68 

9228 X-INT.DNC>»J29 : y. INT ■ RND1298 ■ 

92 30 PSETf x, f) r IMT(tM&*7*I ■ 



9240 


■EXT I 




9239 


lETURN 




«399 


!En ATTEN 




9319 


r 0R TE-1 TO N 




93?9 


■EiyfiN 




;.'i->.ii> 


REH DEFI 


CKWT— 


leoie 


COLOBCC 




lOflia 


ATTRB0.1 




19830 


L'Lf U.„i 




19968 


B1-* 




10878 


1-1 




|M ■' 


rORj-lTOSO 




I«| ■.' 


ei-Bfnirt'A 


. [. ; 


: H NJ 


BI-RICMTI'BI 


■Ml 


1A1O0 


LOCATE 9.12,1 




10110 


PRINTPt 




101 I? 


• | u-. ■ A49L4 « 


1LASO- 


10128 


1-1*1 




10 1 ' i> 


IF I«L THEN 


•1 



18139 RETURN 



ALUNISSAGE atab\ 



Saurez-vous etre aussi cale que les specialistes de la 
NASA pourpermeltre a votre engin spatial d'alunir en dou- 
ceur et en toute securite ? PresseH la touche START, utili- 
sez le manche a balai (manettede jeu) et vous verrez bien ! 

Frederic DUPONT 



170 IP *'*S<3 O* X*X*>I( 

179 IF ><3 THEN »5-«»S(l 

iao oo to too 

200 IP ■>* AND RflJ IMtk 

:SOUHO 0, 10.B.13 

2io f r>>4 and p«a i 
emjMD o. to, a, is 

HO IF l"-A OO F-IO ( 



I ■■.-.. 




I: PLOT • 



YB.-0 



JtPLOt j,4:Pi_or 3,' 









»0 POKt -",j. i :<■';■• aia.ii:-' r.>-««i.-.-'i ii:i">* 
■ 7*11 '•PCRR[-:pok( Mt,M !.i.b«i^7i ,"•»• 
Illil'SPISDi- 

*3 po*« »i*,n:pfi>T »37,2o;? 'Pu«L:-:Pom 
»5*,>:pw!| «f7 t XOIV -acONfi ■ 

I0O C01.0* OrPLOT »,<!PLOI ■ ■ 1 , T t t ! PLOT - 



3 0« P-14 THEM YS-YS-O. 

.•:'-• -\ :■.'■■■:, i, n 0,70.a,13 

2J0 IF P.» OP P-13 O" P-3 TMSM YS-Y>>0.7 

:f-f-i:5OO«0 0,?0.«,I3 

240 IP P< I Thin f-o:Poke 41*,l:n'l«F 63', 

13!' ■• PLUB DE CAPIUOHHI i':S(HJND O.SO, 



soumd o.o,o,o:po*E as«.i:pokc «]?, 13 
1 ■• voub etes nop! •• 
o bound 7,73,*, i3:vi-i9!v2<13:v3-13 

BOUHD O,7O,«,Wi:8OUN0 l,40,B,V2:S0UN 
70,B,V3!FO» I-l TO IdiM.I I 

SOUND 0,O,O,0:BOUND I.O.O.OISOUND 1, 

J30 POKE »3-,J;7 a PPI«SII LI BOUTOH POUO 

[ r.-.iin or ii-iiiik-i 

I«0 IF P(EKI3S2?»l-3 THEN OPAPHICB OlEMD 



40 EON I-x-2 m K47IPU 
1IHEKT IICOLOP O1PL0T 1 
2,Y|.|icoLO" UK-K*ilM 
79 Ut I3*,B0!DP*UIU I 
■PNTO O.NO 



'YBiYt-^ 



I OP 72 THIN : 



,7i:loc*t 

I THIN 0OB 



*M,l!POK| »37,» 



r A3*,OIPOPI 437, »i : 



1*0 POKE •1*.7IPOHfl i 



n "i /<ai then »-5'> 

4J0 * •(■ POINT>-lBC-«C*«iPOKI .3P.2TP0K 

I a37,24l* BC 

4J3 T -«IP«I/ VOUB POUP IINC AUTME MIBS 
ION- I 

440 eop i-i io 70oo:he«t iiooio 20 

10OO OPAPHICB t»!SITCOLOP 4 , 7, Bl BE TCOI.OP 

0.0, I4IPOII HON 3,Bl» •*! -AI.UNIBBAOB* 
10IO IP P||ni3337*i>a unn piilipn 



* 



PILOTAGE 



Suite de la page 13 



F* 



702 P 



IESSE IMP ELEV 
EV A6IEUII- 

lEM 

225 SQTC 

227 ».1H1 ;RfiN|i25« 

8 ■- : IF (K1368 IH 

EH 227 
238 IF IKmWI -LOL 

IS10H1 KORT":EH 


235 fill "COLISIOH I 

V!IE£":SOIO 
245 H=IKI (Wtt«<13e 

):1F mm MH 
2*5 
256 IF ViNiM "*s 

HVH EIE R6RTIU 

'ton 

01 m "VS LEUR RV 
E2 ECHFWPIMI 
00 

see if H>e;iF t»-i 

PEI "IffilK *N 
SORTl-,'«-—«C 
EftSH! ! !":EHD 



«!"IV: ■ 
318 !F V=a:PPT 1111 
EfflSSFISE KUSS 
l!*iEHO 

328 IF V;JiV>B!60I0 

386 
336 V=V-S:D»D-5!60I 

386 
348 If »)Ml 

SIS fit!- 

I'iEHt 
358 M*IMI 

I! OiPH 1:6010 

366 IF h"ilffllt O: 

K\ "IR6IH DON 

50811" 
378 IF I«""!«|1I o: 

PRT t 
388 6010 
489 M»HW 
416 IF MlFfl "(. E 

51 18 3EHE F01S 

VII H Y FlPllI 

S ENE!6!E".'EN 





"IRO 



■£«fl 



436 Ifflll 0:PRT 'VOI 
CI LE RAYOK TEL 
EPOFIEUR" 

446 fl=mi ifsiii'iee 
) 

456 III? "VOIRE COHB 

iiimsoH-.F 

466 IF FCfllPRT ' 

Pi 
476 IF F;fl:PRl ' 

F HMII...* 
4S6 IF F'RiPRI • 

'1GOT0 558 

586 IF t=i:PPl "C E 

Iftl'BlBI 

ll'iffll 

526 W-ll«l "PIUS 

: : • ESSHI 

S":6OI0 458 

556 I "-IH-Hfl (SflN 

l*:88l 
576 v-IHT iR«M'266 
: IF V'.46 MM 
570 

S6HIM45 

II tvieee i 

HDI 596 

686 6070 ■ 



LE LOGICIEL 
DE LA SEMAINE 



MINI-C4LC 



.pour G4NON 



Les feuilles tie calcul qui portent 
souvent les noms genenques de 
"CALC* ou "Tableau', sont actuel- 
tement tres repandues dans le do- 
maineprofessionnelousemi-pro- 
'essonnel Ces logiciels permet- 
tent de generer et gefer des ta- 
bleaux represent a lils de don- 
nees. d'une facon tres libre quant 
au contenu du tableau 
Ces donnees sont introduces 
dans le tableau sous le format li- 
ana, colonne. 

Des relations entre les donnees 
peuvent etre defmies a raide de 
formules de calcul liant plusieurs 
lignes et/ou plusieurs colonnes 
Les donnees etant modifiablesen 
temps reel ces feuilles calcul sont 
un excellent outil deludes previ- 
sionnelles. car les donnees qui 
sont liees aux. premieres par des 
relations ma thematiques sont au- 
tomatiquementmisesajourparle 
togiciel. 

Ces feuilles electroniques tone- 
tionnaient jusqu'a present surdes 
mkcro-ordinateurs disposant d'un 
minimum de memoire (48Kle plus 
souvent) 

Le CANON X 07 est un ordinateur 
portable de la taille d'un livre qui 
possede maintenant un "CALC" 
portant le nom de X07 CALC 
X 07 CALC ne sembfe pas soufrir 
de la taille memoire limrtee du 
CANON, qui doit etre equipe d'un 
minimum de 16K de RAM. II peut 
gerer des tableaux dont les di- 
mensions peuvent attemdre 20 li- 
gnes sur 20 colonnes. Les quatre 
curseurs permettent de se depla- 
cer a I'interieur du tableau pourvi- 
sualiser telle ou telle donnee. 
X 07 CALC est un logiciel ecrit en 
BASIC (He oui !) dont les perfor- 
mances sont tout a fait accepts- 
bles quant a la rapidite d'execu- 
tion. Les formules etablissant les 



relations entre donnees uitlisent 
les instructions de calcul an thme- 
liques du Basic (+. — , *. log, etc ) 
ll est possible a tout moment, de 
rajouter une colonne ou ligne 
sans perturber la structure du ta- 
bleau initial, ainsi que d'effectuer 
une initialisation detoute une co- 
lonne, de proceder a une copie 
dune colonne dans une autre, 
duliliser des variables et des 
tests logiques dans une formule 
de calcul, etc .. 

Les donnees possedent plusieurs 
modes de representation . inge- 
nieur, financier, entier. 
Lensemble de ces possibilites est 
gere par menu, puis par les tou- 
ches de fonctions, dune facon 
particulierement souple d'ail- 
leurs. 

X 07 CALC permet. bien entendu. 
la sauvegarde des tableaux crees 
sur la cassette sous forme de fi- 
cbiers Ces fichiers seront utilisa- 
bles. par le programme XPLOT 
foumi avec X 07 CALC. qui assure 
la representation graphique des 
donnees sur i'lmprimante-table 
tracante du CANON. (Histogram- 
mea 2 ou 3 dimensions, diagram- 
me cylindrique. lignes brisees) 
X07 CALC est un programme sim- 
ple et rapide. On ne peut que re- 
gretter la dimension de 1'ecran du 
CANON qui ne permet de visuali- 
ser qu'une seule colonne. 
Un bon outil neanmoins. en 
tenant compte de la taille du 
CANON. 

X 07 CALC realise par POCKET 
SOFT 

Configuration minimale : CANON 
X 07 CALC, avec 16K de memoire 
vive lecteur de cassette irnpri- 
mante x710. 



P GLAJEAN 



PETITES ANNONCES 
GRATUITES 



ACHETE pour Tl 99/4A mini 
memoire (Mbleur -f Manuel) Tel 
(20) 37 10.30 Monsieur BREYNE 
DUREUX 

VENOS TRS 80 16 K modi niv 2 
avec moniteur N8 et magneto 
cassette bon etat prix 2900 F 
comptant Tel 209.91.83 apres 
18 h 30 cherche revues anglaises 
ORIC 48K Antotne BERNADOT- 
TE 

RECHERCHE ZX 8l avec exten- 
sion memoire 16K. Faire proposi- 
tion a Christophe FOLOPPE au 
820 81.26 (lesoir). 

VENDS ZX 81 + 16 K + K7 n° 4 + 

"a la conquete des jeux" ache- 
te 1100 F vendu 850 F Roger 
LAGARDE LES VOUTES 77100 
MAREUIL LES MEAUX Tel. (6) 
009 34.68 

VENDS SANYO PHC 25 + Casset- 
te de demonstration + cordons + 
livret d'apprentissage du Basic 
SANYO Etat neuf. Vendu 2000 F 
Stephane PARDO 4 bis, chemin 
du Bois de lAumone 13011 MAR- 
SEILLE. 

VENDS ORIC 1 (48 Ko) (5/83) + 
cable PER1TEL + Alimentation 
PERITEL -I- manuel + 3 livres + 
15 K7 de jeux 2100 F D. FABRE 
3, place des Pepinieres 77500 
CHELLES Tel. 008.58.22 le soir. 

VENDS TRS 80 (09/82) mod. 1 16K 
lev. Il/lll + moniteur + magneto + 
transfo + manuels + 200 pro- 
grammes -f Documents + re- 
vues : 3400 F contacter Monsieur 
GASSMANN 17. rue des Fonds 
Huguenots 92420 VAUCRES- 
SON. 

VENDS APPLE lle-t- moniteur III + 
Lecteur disque + controleur + 
Carte chat mauve etendue 
(80 col. 64K/COI. PERITEL) + 
Joystick + manuels + logiciels 
ensemble neuf garanti Prix 
14.900 F Tel. 344.72.23. 



ECRAN MAGIOUE recherche des 
collaborateurs mformatiques 
dans la Region Parisienne pour 
participer a remission de radio 
Tel. 85017 74 (le samadi apres- 
midi de 15 h a 18 h) demander 
BENOIT 

VENDS PC 1500 (12/83) 4Ko 
MEU(1/84) achete 2400 F Vendu 
2000 F a debattre. Nicolas 
BARUCH Tel. 424 32.59. 

VENDS ORIC 1 16K0 + Aiim. + 
PERITEL + Revues + Program- 
mes + Manuels 2000F S'adresser 
a BOUCHAUD Bruno 24 rue de 
Voulneuil 86000 POITIERS. 

VENDS Tl 99/4A (8.83) + cordon 
magneto + modules Basic eten- 
duetParsec-f notices et em calla- 
ges 2000 Fie tout. Remi THOMAS 
Tel. (21) 38.42.96. (apres 18 h) 

VENDS ZX (12/83) bon etat + 16 
Ko (1/84) lordinateur+ Extension 
16Ko - 850 F + 2 K7 : Panique, 
Space invaders, pour 120 F les 
deux. S'adresser a Frederic DOU- 
CET 51 rue Dutot 75015 PARIS Tel. 
567.23.35. (apres 20 h) 

AVIS AUX POSSESSEURS DAP- 
PLE : ECHANGE Chaine HIF1 va- 
lant 9000 F contre tout materiel 
APPLE (au moins un micro, meme 
de valeur inferieure) . VENDS Tl 
99/4A+ module + cable magneto 
(11/83) prix 1700 F Tel. 456.01.78 
Monsieur RIVIERE 

VENDS ORIC 1 + Programmes 
dontdesassembleur + 3numeros 
MICR'ORIC : 2050 F + FX 702P 
avec manuels 790 F GUILLEMOT 
Jerome 3 allee Max Ophuls 94370 
CRETEIL Tel. 377.86.07 

VENDS POUR TRS 80 Ml : DriveO 
tandy 2000 F + Drive D8L FACE 
DBL DENS 2000 F+ 1 ext TANDY 
48K avec doubleur et DOS 2600 F 
Ph. ROUYREGUILLEBERT 40690 
BENESSE MARENNE Tel. (58) 
72.05 35 (le soir). 




ACHETE pour Tl 99/4A module 
basic etendu + Livres JEUX ET 
PROGRAMME TOME 1.23 Tel 
709 42.42 (apres 18 h en semai- 
ne> Jean Claude ZINGRAFF 

ACHETE manettes de jeu pour Tl 
99/ 4A + logiciels + Basic etendu 
Prix modere Julien ALEZRA 52 
avenue du 8 Mai 95400 VILUERS 
LE BEL Tel. (3)990.58.16. 

ACHETE pour Tl 99/4A module 
Basic Etendu 500 F Yves SIMON- 
NARD 5 rue des Peupliers 
MUIZON 51140 FOURGERY SUR 
VESLE 

VENDS Tl 99/4A + magneto + 
cordon magneto + Manettes jeu 
+ Pars. EC -Hivres-t- programmes 
2500 F (achete 3500 T 11/83) + 
EXT. BASIC + ECHECS 1000 F + 
EXT MEM. 32 K (boitier peripheri- 
que non necessaire) 2000 F Ou le 
tout 5000 F Patrice GIAMI Tel 
725.21.18aNANTERRE 

VENDS cable interface pour con- 
necter directement TRS 80 sur 
SEIKOSHA GP 100 ou GP80 ou li- 
ne PRINTER Pnx 600 F Patrick 
MEGHAZI Tel. (20) 05.57.49. 
VENDS egalement manuel mode 
d'emploi TRS 80 L1 ; 30 F 

VENDS ZX 81 complet290F + Ex- 
tension 16K190F+ generateurde 
caracteres 100 F + Interface poi- 
gnees de jeu 90 F + i poignee de 
jeu 60F+5livres (5x40 F)200F+ 
K7 Assembleur + Manuel 40 F + 1 
K7 DE NOMBREUX JEUX 50 F ou 
le tout 900 F Pierre MEUNIER Tel 
960 41.86 (VALD'OISE) 
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JEUX EDUCAT1FS TEXAS INSTRUMENTS 
POU17 ENFANTS A PARTIR DE 6 ANS 

ifiE. TfC , 
DICTEE MAGIQUE 

:,r^f>fj rortfiograprte 
en dialoguant smer. TappMeil 
MOOULE EN FRAfUCArS 

2" niveau . roots crones 
3' niveau vocaDuiao-e moderne 
en francae du Mm m 
MODULE EN ANGLAT5 

. - , r.'ononeez les voyelles 

2' niveau in lettres. \m i*m(ei. 
lei irregularM-,. termmaoons 
« consonnes 
3* nrveau kr- verdei 

-".rtjondesmotsan'j'.' • 
5* fttveau nomonymes anglan e 
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BON DE COMMANOE 

TARIFS AU 16/3/84 



Cm prix wot indicatiti ei peuvent tire modifiei 

sanj preavrs. 

Prod u its di;poniblci cS^n^ln lirWle d* new nocki 

en magaiin. 

Participation aux fraij de port et dexpedrtion en 

recewnmande pour lei logiciel} : + 30 F. 

LA REGIE A CALCUL 

65/67. bd Saint -Germain. 75005 PARIS 

Tel. : 32S.6fl.8a - Telex : ETRAV 220064F/I3O3 RAC 



_ LA REGLE A CALCUL : 

I 65/67. bd Saint Germain. 75fJ05 PAfi 

I W. : 325.68.88 - Telex : ETRAV 2200 



MATHS MAGIOUES 

i j'i ■.■•'r',' p,ii •!■* ;;,',-, .•■: .:;■'■' • 

,-, - ■ „ -.-, .. 

Uvremag*qoe: le rfved« [OUt-peWs, •) SOS.OO G 

. r-'' '■ ..•■"■ ■ :'■ ■ ■'. ''■; ' I 

CALCULATEURS TEXAS (NSTRUMENTS 
POUR LE LYCEE 

n 55 II : 

Calculateur scientrfiqije/8 m^moireV 

56 pas de programmes/15 nrveaux 

de parentheses • 246.00 F O 

Tl 57 LCD : 

Le calculateur des programmeurV 

8 rnemoires/48 pas de progjarrirnes/ 

15 nrw^aux de parentheses/ 

10 erjquettes/convers<on pcA»i"- ' ■ 

bourle/DS? • 240. 



ORDINATEUR FAMILIAL Tl 99/4 

CONSOLES ET ACCESSOtRES 

• Orttirwtrur remittal II 99/4 r#iportt*e 

• ■;■ 

■", Manuel aisembleur 

• Cat* 1 liaison maqnOto -cassettes 

• ■ I ^r!e-jeui> 
■ tOseur de parole 

e '■'■■ ■ 

EDUCATION A PARTtn 
DES ANS 

e '"■■:■: 

• Addition -Substr action I 

• Addition Canon 

• DwruonoWnohaon 

• ' . 

■■ . ■ ■ 
e '.'■ 

• Mi - .'*,'. ■■ 

• ' ' ' 

• l el m<iit 

• Carotiem. 

• ' ' HHvCt l 
VM 



PrixTTC 

1 190.00 n 

5OOO0 " 

252.00 Q 

150.00 U 

255.00 U 

680.00 O 

496.00 n 



■ 




I34F 


n 


1 34 r 




I34F 




134 f 


□ 


1 14 1 




1341 




i 14 f 




134 f 




i jfli 












195.00 





EDUCATION A PARTIR 
DE 10 ANS 

• BasK par soinieme 
O Jeux d'entrepnse 

• Music maker 

Num/raOonl 

• TI Logo II 

PROGRAMMES MAGNARO : 

• La ponctuation en Francais 

• Drwseurs PGCD PPCM 

LOISIRS 

• ■.-.■■- 

• Car Wars 

Connect four 

• 

• / 
e ■.' 

• ';;■ . 

• Parsec 

• The attack 

• Ti ■Invaders 

• Tombstone city 

• Yahtzee 
e / 

* 
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NOUVEAUX LOGKIELS TEXAS 

• ■ ■ >iu pirate ?57 F « Moppet 252 f 

• Demonajocfc 2521 •Startredi 257F 

• Mast 2521 • ic, mi-.iIct 2 f .2r 

• Burger time r>i f # Treasure ttl* 



ORGANISATION 

• ■ ■ ■ 
• 

• Consw ft 

■ ■ ■ . 

• Ii Winn 

PROGRAMMATION 
• 

■ ■ ■ 
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Terminal Emulator * 


500 F 


AUTRES LOGICIELS 
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• Introd auTl 99/4(1 J 
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Les techniques des p>- , 
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de jeux (21 
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Jeu" de mfmore 




CSneggit 
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• Advent," 




• Voodoc- ( 
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• M-Mpry Fun House 
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• Pyramid Of Doom 


66F 


• Chost Town 
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• 


661 



MODULES ROMOX 
POUR Tl 99/4 

•' I ■ ■ ■ ■ 

■■.''■■'■ 

• Miesurv* 

• Hen peclb 

. 

■ ■ 
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